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HEAD O BE A Do 50 PRO MRANADRD BASIC 180 0 o iss do 


ALAVANCAS, 


POLIAS E ROLDANAS 


A mecânica é a área da física que 
estuda as forças que interagem entre 
os corpos. Utilize o computador para 
analisar alguns de seus princípios, 
simulando situações da vida cotidiana. 


Os grandes monumentos antigos — 
como as pirâmides do Egito e os tem- 
plos incas — sempre nos intrigaram, 
pois os povos que os construiram não 
possuíam a avançada tecnologia de que 
dispomos nos dias de hoje. 

Nenhum construtor contemporâneo 
se atreveria a executar uma obra como 
aquelas sem ter em mãos um equipa- 
mento que o ajudasse a cortar, transpor- 





tar e erguer a grandes alturas as gigan- 
tescas pedras que as compõem. No en- 
tanto, nossas mais sofisticadas máquinas 
são projetadas a partir dos mesmos prin- 
cípios que orientavam os antigos enge- 
nheiros. A ciência que estuda tais prin- 
cípios é a mecânica. 

As forças que atuam sobre um siste- 
ma estático (como um edifício) ou diná- 
mico (como as engrenagens de uma má- 
quina) são percebidas de modo quase 
instintivo. Assim, quando levantamos 
uma xícara de café, calculamos automa- 
ticamente a força exata para fazê-lo sem 
derramar o líquido. Do mesmo modo, 
ao escolhermos uma tábua para uma es- 
tante, sabemos mais ou menos qual a es- 
pessura que ela deve ter para suportar 
um determinado peso. 


A ALAVANCA 

DISTÂNCIA X PESO 
SISTEMAS DE POLIAS 

- POUPANDO ESFORÇOS 
O ELEVADOR HIDRÁULICO 


Em situações simples, como as men- 
cionadas, apenas estimamos as forças 
em questão. Porém, em alguns casos, os 
cálculos devem ser muito precisos. E aí 
que entram os computadores. 

Você pode, é claro, usar dados obti- 
dos através de suas próprias experiên- 
cias para planejar simulações envolven- 
do forças. Assim, em programas de jo- 
gos, é possivel estimar, com uma boa 
margem de acerto, a que distância uma 
bola vai parar depois de ter sido golpea- 
da por um bastão. | 

Mas o computador em geral requer 
dados muito precisos. Quando um en- 
genheiro está projetando uma ponte, 
por exemplo, ele precisa saber exata- 
mente a força que atua sobre cada es- 
trutura e o seu limite máximo de resis- 














tência. Aprendemos, aqui, a calcular 
forças em sistemas simples, onde as car- 
gas podem ser variáveis. 





— AALAVANCA 


O transporte de cargas muito pesadas 
torna-se um sério problema à medida 
que vão sendo construidas estruturas ca- 
da vez maiores. Durante a década de 60, 
o foguete Saturno V, que levaria o ho- 
mem até a Lua, era transportado em 
uma grande plataforma móvel, a maior 
até então fabricada. 

Atualmente, as plataformas de petró- 
leo do mar do Norte são transportadas 
por terra em veículos que flutuam sobre 
um colchão de ar. Esses equipamentos, 
e muitos outros mais simples, dependem 
sempre de algum tipo de máquina que 
lhes dê pressão, tração ou movimento. 
Essas máquinas, por sua vez, não pas- 
sam de montagens mais complexas de 
alguns instrumentos básicos, já conhe- 
cidos e usados há séculos. 

Entre os mais primitivos deles está a 
alavanca. Em sua forma mais simples, 
ela consiste de um bastão. Uma das ex- 
tremidades desse bastão fica embaixo da 
carga e a outra é levantada para empur- 
rá-la. Usando esse artifício, uma pessoa 
pode mover objetos muitas vezes mais 
pesados que ela. Como afirmava Arqui- 
medes, o grande matemático do mun- 
do antigo, poderíamos levantar a Ter- 
ra, se tivéssemos um bastão bem longo 
e um ponto de apoio. 

Esse ponto de apoio está situado em 
algum lugar entre as duas extremidades 
do bastão. Digite este programa para ver 
uma simulação do funcionamento de 
uma alavanca. 
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30 BORDER O: 
CLS : OVER 1 
40 INPUT "Distancia do apoio 
a partir da esquerda (1-8 
m) ";d 
S0 IF d<l OR d>8 THEN GoTo 
40 
60 LET w=(10-d)/d 
70 PRINT AT 1,0;"Peso necessa 
rio para equilibrar 100 KG="; 
w*100;"KG" 
100 PLOT INK 4;0,15: DRAW 
INK 4;255,0: FOR n=0 TO 55: 
PLOT (28+20*d)-n/3,71-n 
110 DRAW INK 7;2*((28+20*d)- 
PEEK 23677),0: NEXT n 
120 LET a=d-10: LET a=ATN (a/( 
l-a*a)J)J+2*ATN (1) 
130 FOR b=a TO 2*ATN (1) STEP 
(2*ATN (1)-a)/10 
140 FOR k=1 TO 2: GOSUB 1000: 
GOSUB 1500 
160 NEXT k 
170 NEXT b 
180 LET B=2*ATN (1): 
1000: GOSUB 1500 
190 IF INKEY5S="" THEN GOTO 
190 
200 RUN 


PAPER O: INK 7: 


GOSUB 


1000 PLOT 120-100*SIN (b),71-20 


*d*Cos (b) 

1011 DRAW 127+100*SIN (b)-PEER 
23677,71+(200-20*9) *COS (b)-PEE 
K 23678 

1025 DRAW 0,-B: DRAW -10,0: DRA 
wWw 0,-10: DRAW 20,0: DRAW 0,10: 
DRAW -9,0: POKE 23678, (PEEK 236 
78) +6 

1030 RETURN 

1500 PLOT 128-100*SIN (b),70-20 
*gAC0OS (b) 

1510 LET e=SQR (SQR vw) 

1520 DRAW 0,-8: DRAW -10*e,0: D 
RAW 0,-10*e: DRAW 20%e,0: DRAW 
0,10*%e: DRAW -9%e,0 


E: 
! 


1530 RETURN 


10 PMODE 3, 1I:PCLS 

20 COLOR 3:LINE (0,180)-(255,19 
1) ,PSET,BF 

30 CLS 

40 INPUT” DISTANCIA DO APOIO A 
PARTIR DA ESQUERDA (1-8 M) ”; 
D 

50 IF D<1l OR D>8 THEN 30 

60 W=(10-D)/D 

70 PRINT:PRINT"PESO NECESSARIO 


PARA EQUILIBRAR 100 KG =" ;W*100 
: "par 

80 FOR G=1 TO 4000:NEXT 

90 SCREEN 1,0 

100 COLOR 2:LINE(28+20*D, 150)-( 
18+20*D, 179) , PSET 

110 LINE -(38+20*D,179), PSET:LI 
NE -(28+20*D, 150), PSET: PAINT (28 
+20*D,160),4 

120 A=10-D:A=ATN(A*A-1) 

130 FOR AN=A TO 2*ATN(1) STEP ( 
2*ATN(1)-A)/10 

140 C=4:GOSUB 1000:€0=3:GOSUB 15 
UU 


150 FOR G=1 TO 500:NEXKT 

160 C=1L:GOSUB 1000:GOSUB 1500 
170 NEXT 

180 AN=2*ATN (1) :C=4:GOSUB 1000: 
C=3:GOSUB 1500 

190 IF INKEYS="" THEN 190 

200 RUN 


1000 COLOR C:LINE(128-100*SIN(A 
N),149-20*D*COS (AN) ) - (134+1 0045 
IN (AN), 149+(200-20*D) *COS (ANJ), 
PSET 


1020 DRAW"D2ZL6D6RIOU6LB” 
1030 RETURN 

1500 COLOR C:LINE(132-100*5IN(A 
N),147-20*D*C0S (AN) )-(132-100*5 
IN(AN)-SQR(W)*7,147-20*D*COS (AN 
)-5OR (W) *7), PSET,BF 
1530 RETURN 









+ 





o 


5 SCREEN O:MAXFILES=1:COLOR 15, 
qa 

10 INPUT"distância do ponto de 

apoio (1-B8m) ";D 

15 IF D<l OR D>B THEN 10 

20 W=(10-D) /D 

25 SCREEN 2:0PEN"CGRP:" FOR OUTP 

UT AS tl 

30 PRESET(0,0) 

35 PRINT 41," PESO QUE EQUILIBRA 
100 KG="; INT (W*100);"KG” 

40 LINE(0,180)-(255,191),3,BF 

45 FOR I=0 TO 10 

S0 LINE (28+20*1,180)-(28+20*1, 

191),6 

55 NEXT I 

60 LINE (28+20*D,150)-(18+20*D,1 

79),2:LINE-(38+20*D,179),2:LINE 

- (284+20*D,150),2: PAINT(28+20*D, 

160),2 

65 A=10-D:A=ATN(A*A-1) 

70 FOR AN=A TO 2Z*ATN(1) STEP (2 

*ATN(1)-A)/10 

BO C=4:GOSUB 1000:C=3:GOSUB 1500 

90 FOR G=1 TO 500:NEXT G 

100 C=1:GOSUB 1000:GOSUB 1500 
110 NEXT AN 

120 AN=2*ATN (1) :C€C=4:GOSUB 1000: 

€C=3:GOSUB 1500 

130 IF INKEYS="" THEN 130 

140 RUN 

1000 LINE (128-100*SIN (AN), 149- 

2Z0*D*C0OS (AN) )-(134+100*SIN (AN), 

149+ (200-20*D) *COS (AN) ) ,€ 

1010 DRBAW"D2L6D6R1] DUALB” 

1020 RETURN 

1500 LINE (132-100*SIN(AN),147- 

20*D*Cos (AN) )-(132-100*SIN (AN) - 

SQR (W) *7,147-20*D*COS (AN) -SQR (W 
1*7) €, BF 

1510 RETURN. 


Co 


5 HOME : HGR HCOLOR= 3 


1O VTAB (23): INPUT "DISTANCIA 
DO PONTO DE APOIO(1-BM)J=";D 

15 IFD<1I0ORDH>õgBTHENÕS 

20 W = (10 - D) / 10 

30 VTAB (24): PRINT "PARA EQUI 
LIBRAR 100 KG E PRECISO ";W * 1 
00;" KG" 

40 HPLOT 28 + 20 * D,120 TO 18 
+ 20 * D,149 

S0 HPLOT TO 398 + 20 * D,149 T 

O 28 + 20 * D,120 

60 A = 10 - D:A = ATN (A * A - 
1) 

70 FOR AN = ATO 2Z* ATNGÇ(1) 

STEP (2 * ATN (1) - A) / 10 

BO HCOLOR= 3: GOSUB 1000 

90 FOR G = 1 TO 1000: NEXT G 
100 HCOLOR= O: GOSUB 1000 


110 NEXT AN 
120 AN = 2 * 
3: GOSUB 1000 
130 GET AS: RUN 

1000 X = 128 - 100 * SIN (AN): 


ATN (1): HCOLOR= 


Y = 119 - 20 * D* cOS (AN):R 
= 134 + 100 * SIN (AN):S = 119 
+ (200 - 20 * D) * cos (AN) 


1010 HPLOT X,Y TO R,5 
1020 HPLOT R,S TO R,8 + 2 TO R 
- 63 +2T0R- 683B+ BT R 
+ 6,5 + 8 TO R+ 6,8 + 2 TO B,8 
e 
1500 HPLOT 132 - 100 * SIN (A 
N),117 - 20 * D * COS (AN) TO 
132 - 100 * SIN (AN),I17 = 20 
* D* COS (AN) - SQR (MW) * 7 
TO 132 - 100 * SIN (AN) - SQR 
(W) * 7,117 - 20 * D * cos (A 
N) - SOR (M) * 7 
1510 HPLOT 132 - 100 * SIN (A 
N) - SOR (M) * 7,117 - 20 * D 
* COS (AN) - SOR (W) * 7 TOl 
32 - 100 * SIN (AN) - SQR (W) 
* f,dl? - 20 * D* COS (AN) T 
O 132 - 100 * SIN (AN),11l7 - 2 


O * D* cos (AN) 
1520 RETURN 


O A PA 


f DIM A | 114 
mA [ol al pj 
LUA das PAR 


Ao executar O programa, o compu- 
tador pedirá que você digite a distância 
do ponto de apoio (D), a partir da ex- 
tremidade esquerda de uma barra de 10 
m. Ele imprime, então, o peso necessá- 
rio para equilibrar 100 kg na outra pon- 
ta (W). O ponto de apoio é desenhado 
pelas linhas 100 e 110 (TRS-Color e 
Spectrum), 40 e 50 (Apple e TK-2000) 
e 60 (MSX). Um laço controla a anima- 
ção da alavanca — linhas 130 a 170 
(TRS-Color e Spectrum) e 70 a 110 
(MSX, Apple e TK-2000) —, chaman- 
do a sub-rotina 1000, que desenha a bar- 
ra, e a 1500, que desenha os pesos. 

Introduza diferentes valores para D 
e note que, quanto mais distante do pon- 
to de apoio, menor é o peso necessário. 
Do mesmo modo, uma distância mais 
curta requer um peso maior. 


DISTÂNCIA X PESO 





Existe uma fórmula matemática bem 
simples para o cálculo de distâncias e pe- 
sos em alavancas; basta que você saiba 
onde se encontra o ponto de apoio. Se- 
gundo essa fórmula, a carga, multipli- 
cada pela distância até o ponto de apoio, 
é igual ao peso usado vezes a distância 
até esse ponto. Em termos de variáveis, 
seria O seguinte: 


CxDC= Px DP 


No programa anterior, usamos W no 
lugar de P. A barra mede 10 m, logo, 
DC é igual a 10 menos DP. Se a carga 
fosse de 1 kg, o peso necessário para 
equilibrá-la seria então: 


W = (10 — DE)/DE 


conforme usamos nas linhas 60 (TRS- 
Color e Spectrum) e 20 (MSX, Apple e 
TK-2000). A variável DE (D, no progra- 
ma) foi introduzida por você. 

As balanças mecânicas utilizam esse 
princípio. Toma-se um ponto de apoio 
no meio da barra e coloca-se o peso a 
ser medido em uma das extremidades. 
A partir daí, adicionam-se massas já co- 
nhecidas do outro lado, até atingir o 
equilíbrio. O peso do objeto será a so- 
ma dessas massas. Isso funciona muito 
bem para pequenos pesos, mas, quan- 
do se trata de grandes cargas, o proce- 
dimento é outro. Nesse caso, o ponto de 
apoio é colocado bem próximo da car- 
ga e calcula-se o peso aplicando a fór- 
mula já explicada. 

Depois de ter brincado um pouco 
com seu programa, você estará pronto 
para identificar o funcionamento de ala- 
vancas em qualquer tipo de máquina. 











Ao trabalhar com uma chave inglesa ou 
com o macaco do seu carro, nunca se 
esqueça de que a distância que você to- 
mar do ponto de apoio poderá reduzir 
muito O seu esforço. 


SISTEMAS DE POLIAS 


As alavancas são muito úteis para pu- 
xar e empurrar objetos, mas, quando se 
quer levar uma carga a grandes alturas, 
é necessário utilizar as polias. Digite o 
programa a seguir para vê-las em fun- 
cionamento. 


10 CLEAR 32399: RESTORE : 

GOSUB 510: BORDER O: PAPER O: 
INK 7: CLS 

20 PRINT AT 10,0;"Quantas rol 

danas (2, 4 ou 6)?" 

30 LET aS=INKEYS: IF agS<>"2" 

AND aS<>"4" AND aS<>"6”" THEN 

GoTOo 30 

40 PRINT TAB (10);aS: LET np= 

VAL (aS): LET 1=25*np-50 

45 IF np=2 THEN POKE 32431, 





46 IF np=á THEN POKE 32431, 


47 IF np=6 THEN POKE 3243), 
lá 
50 PRINT PRINT "Sao necessa 


rios ":INT (1000/np);” quilog 
ramas”: PRINT “para levantar 
1 tonelada” 

55 FOR m=1 TO 500: NEKT m 

60 CLS GOSUB 1000 

70 LET sp=120 

90 FOR k=1 TO 50 

100 RAND USAR 32400 
105 PLOT OVER 1;191-1-np,ap: 
DRAW OVER 1;,8,0 
110 PLOT OVER 1;191-1-np,sp: 
DBAW OVER 1;8,0 
120 LET sp=Bsp-np: 
THEN LET sp=1720 
150 NEXT k 


IF ap<=0 


IF INKEYS="" THEN GOTO 


160 

160 

170 RUN 

510 FOR n=32400 TO 32491 

520 READ a: POKE n,a 

530 NEXT n 

540 DATA 62,60,79,230,192,15, 


15,15,198,64,103,121,230,7,137 
,/103,121,135,135,230,224, 111, 
62 

550 DATA 175,254,192,208,145, 
216,8,14,14,125,177,111,62,30, 
254,32,208,145,216,60,79,6,0, 
197,229,17,224,91,237,176,225 
560 DATA 193,217,8,167,40,30, 
71,217,124,60,87,93,230,7,32, 
10,123,198,32,95,56,4,122,2l4, 
8,87,235 

570 DATA 229,197,237,176,193, 
225,217,16,227,217,201 


580 RETURN 

1000 PLOT 0,170: DRAW 255,0 
1010 FOR k=1 TO np STEP 2 

1020 CIRCLE (232-k*26),140,13 
1030 CIRCLE (258-k*26),50,13 
1040 NEXT k 

1050 PLOT 245,170: DRAW 0,-125 
1060 FOR k=1 TO np-l 


1070 PLOT 246-k*26,140: DRAW O, 
494) 

1080 NEXT k 

1090 PLOT 197-1-np,140: DRAW O, 
-140 

1100 PLOT 208,141: DRAW (256-np 
*26) -PEEK 23677,0 

1110 PLOT 234,50: DRAW (282-np* 


26)-PEEK 23677,0 


1120 PLOT 206,170: DRAW 0,-28: 
PLOT 258-np*26,170: DRAW 0,-28 
1130 PLOT 231-1*2/3,50: DBAW O, 
= 21) 

1140 PLOT 232-1/3,50: DRAW 0,-2 
Ú 

1145 DRAW (231-1*2/3)-PEEK 2367 
7,8) 

1150 PLOT 231-1/2,29: DRAW 0,-1 
8) 

1160 DRAW -9,0: DRAW 0,-10: DRA 
W 19,0: DRAW 0,10: DRAW -9,0 


1170 PLOT 180-1,0: DRAW (180-1- 
20/SQR (np))-PEEK 23677,0: DRAW 
O, (20/50R (np))-PEEK 296/78: DR 


AW (180-1)-PEEK 23677,0: DRAW O 
| O-PEEK 23678 


1210 RETURN 


10 PMODE 3,1:DIM P(280) 

20 CLS:PRINT "QUANTAS ROLDANAS 
(2, 4 00 6) 7 TF; 

30 AS=INKEYS:IF AS<>"2" AND AS< 
>"4” AND AS<>"6" THEN 30 

40 PRINT AS:NP=VAL (AS) :L=254NP- 
50 

50 PRINT: PRINT"SAO NECESSARIOS 
":1000/NP: PRINT"QUILOGRAMAS PAR 
à LEVANTAR 1 TON.":FOR G=1 TO 4 
000:NEXT 

60 PCLS:SCREEN 1,0:GOSUB 1000 
70 GET(249,172)-(215-L,106),P,6G 
'SP=38 

BO COLOR d,l1 

90 FOR K=106 TO 49 STEP -1 

100 PUT (249,K+66) -(215-L,K),P, 
PSET 

110 LINE (191-L-NP,SP)- (199-L-NP 
| 8P), PRESET 


120 SP=SP+NP:IF SP>191 THEN SP= 
3B 

130 LINE(195-L-NP,33)-(195-L-NP 
1.91) PSET 


140 LINE(191-L-NP, SP)-(199-L-NP 
(/8P),PSET 

150 NEXT 

160 IF INKEYS="" THEN 
170 RUN 

1000 LINE(0,0)-(255,10),PSET,BF 
1010 FOR K=1 TO NP STEP 2 

1020 CIRCLE(232-K*26,33),13,2:P 
AINT(232-K*26,33),2 

1030 CIRCLE (232-K*26,33),14,4, 
1,.5+,d 

1040 CIRCLE (258-K*26,121),13,2 
:PAINT (258-K*26,121),2 

1050 CIRCLE (258-K*26,121),14,4 
1,0,:5 

1060 NEXT 

1070 LINE(245,10)-(245,121),PSE 
T 

10B0 FOR K=1 TO NP-1 

1090 LINE (246-K*26,33)-(246-K* 
26,121), PSET 

1100 NEXT 


160 











1110 LINE (195-L-NP,33)-(195-L-N 
P,191),PSET 

1120 COLOR 4,3:LINE(208,32)-(25 
6-NP*26,34), PRESET,BF 

1130 LINE(234,120)-(282-NP*26,1 
22), PRESET,BF 

1140 LINE(206,10)-(206,33),PSET 
LINE (258-NP*26,10)-(25B-NP*26, 
33), PSET 

1150 LINE(232-L*2/3,121)-(232-L 
*2/3,141),PRESET 

1160 LINE (232-L/3,121)-(232-L/3 
141), PRESET 

1170 LINE -(232-L*2/3,141),PRES 
ET 

1180 LINE(232-L/2,141)-(232-L/2 
151), PRESET 

1190 DRAW"L9DI9RI9UIGLO9” 

1200 LINE (1L80-L,191)-(180-L-20/ 
SOR (NP),191-20/SQR (NP)),PRESET, 
BF 

1210 RETURN 


na 


100 SCREEN 0:COLOR 15,1,1:PRIN 
T TAB(7)"Quantas polias(2,4 ou 
G)?"; 

110 AS=INKEYS:IF AS<>"2” AND AS 
<>"4”" AND AS <>"6”" THEN 110 

120 PRINT AS:NP=VAL(AS) :L=25*NP 
-=50 

130 PRINT: PRINT TAB(7)"Força n 
ecessária ="; INT(1000/NP);"Ko”: 
PRINT TAB(7)"para levantar 1 to 
nelada”":FOR G=1 TO 4000:NEXT 
1000 CLS:SCREEN 2 

1010 LINE(0,0)-(255,10),5,BF 
1020 FOR K=1 TO NP STEP 2 

1030 CIRCLE(232-K*26,33),13,2:P 
AINT(232-K*26,33),2 

1040 LINE (232-K*26,33)-(232-K+*2 
6,10) 

1050 NEXT K 

1060 LINE (208,32)-(256-NP*26,34 
) BF 
1070 FOR V=0 TO -30 STEP -5 
10B0 GOSUB 1500 

1090 FOR I=1l TO 300:NEXT I 
1100 NEXT V 

1110 FOR I=1 TO 2000:NEXT 1 
1120 GOTO 100 
































1500 LINE (194-L-NP-12/NP,75-3*( 
V+5))-(196-L-NP+12/NP,75+30/NP- 
3*(V+5)),1,BF 

1510 LINE (195-L-NP,33)-(195-L-N 
P,75-3*V),2 

1520 LINE (194-L-NP-12/NP,75-3*V 
)- (196-L-NP+12/NP,75+30/NP-3*V) 
110,BF 

1530 LINE (249,175+V)-(215-L,107 
+V) , 1,BF 

1540 FOR K=1 TO NP STEP 2 

1550 CIRCLE(258-K*26,121+V),13, 
2: PAINT (258-K*26,121+V),2 

1560 NEXT K 

1570 LINE (245,10+V)-(245,121+V) 
pé 

15B0 FOR K=1l TO NP-1 

1590 LINE (246-K*26,35)-(246-K*2 
6,121+V),2 

1600 NEXT K 

1610 LINE (234,120+V)-(282-NP*26 
(122+V), BF 

1620 LINE (232-L*2/3,121+V)-(232 
-L*2/3,141+V) 

1630 LINE(232-L/3,121+V)-(232-L 
[3,141+0) 

1640 LINE-(232-L*2/3,141+V) 
1650 LINE (232-L/2,141+V)-(232-L 
[2,4 151+V) 

1660 DRAW"CBL9DI9RI9UL9LO9” 

1670 RETURN 


Lab) [5] 


10 E = 780 

20 F = INT (E / 256) 

30 POKE 232,E - EF * 256: POKE 
A 

40 FOR T=ETOERETA)TAYRS 


50 READ A: POKE I,A 
60 NEXT 
70 SCALE= 1: 
BO DATA 20 ,0 
406 ,0 ,138 ,0 
51234 ,0 ,10 4d 
106 ,1 ,138 ,1 
1234 ,1 ,10 ,2 
06 4 ,138,2 
90 DATA 0 
5,251 ,219 ,23 
1 «419 a? 410 


ROT= 0 

42,0 
5470 ,0 
42 +d 
470 4 
42 ,2 


174 ,0 
(202 .0 
74 vd 
,/202 4,1 
74 ,2 41 
572 ,45 ,109 ,209 
77 473 ,169 ,25 
73 ,9 ,213 ,22 





1 = | E TA | 
| 


3 ,219 ,115 ,77 ,9 ,141 ,219 ,6 
3 ,255 ,2,0 ,0 ,0 ,0 

100 TEXT : HOME : VTAB (10): H 
TAB (7): PRINT "QUANTAS POLIAS 
2? (2,4 OU 6) ";: GET NP 

110 IF NP< > 2 AND NP< > 4d 
AND NP < > 6 THEN 100 

120 PRINT NP 

130  HGR HCOLOR= 3: VTAB (23) 


: PRINT "FORCA NECESSARIA="; IN 
T (1000 / NP);” Kg”: PRINT "PAR 
A LEVANTAR 1 TONELADA” 


1000 FOR I =0OTOCSO 

1010 HPLOT 0,1 TO 255,1 

1020 NEXT 1 

1030 FOR K = 1 TO NP STEP 2 

1040 DRAW 1 AT 147 - K * 8,33 

1060 NEXT K 

1070 FOR I = 1 TONP STEPZ 

1080 HPLOT 135 - (I - 2) * 8,1 

OTTO 135 = (I++ 2) 1 Bm 

1090 NEXT 1 

1100 HPLOT 143,34 TO 143 - (NP 
- 2) * B,34 

1110 FOR VU = O TO 36 STEP 3 

1115 HCOLOR= 3: GOSUB 1500 
1120 FORT = 1 TO 500: NEXT T 

1125 IF UV = 36 THEN GOTO 1150 

1130 HCOLOR= O: GOSUB 1500 

1140 NEXT V 

1150 FORT = 1 TO 2000: NEXT T 

1160 GoTo 100 

1500 FOR K = 1 TO NP STEP 2 

1510 DRAW 1 AT 1558 - K * 8,121 
su 

1520 NEXT K 

1530 HPLOT 155,10 TO 155,123 - 
V 

1540 FOR K = 1 TONP-1 

1550 HPLOT 155 - K * 8,394 TO 1 
SS = RX BZ V 

1560 NEXT K 

1570 HPLOT 138 - (NP - 2) * 8, 

34 TO 138 - (NP - 2) * 8,38 + N 

PIZZA 


1580 FOR I = -1TOl 

1590 HPLOT 138 - (NP - 2) * 8 
+ 1,38 + NP / 2 *V'TO ILE -AN 
P-2)*8+1,38+36 / NP+N 
PrLZAWV 

1600 NEXT I 

1610 HPLOT 151,123 - V TO 151 
- (MNP- 2) * GodZ) rm V 

1620 HPLOT 151 - (NP / 2 - 1) 


*% 86,123 - V TO 151 - (NP / 2 - 
1) x 8,128 E y 

1630 FORI = -4 TOA 

1640 HPLOT 151 - (NP / 2 - 1) 


* 8 + 1,128 - V TO 1514 - 
= Wo, Tao V 
1650 NEXT I 

1660 RETURN 


(NP / 


O programa começa perguntando se 
você quer um sistema de duas, quatro 
ou seis polias. Em seguida ele mostra na 
tela o peso necessário para levantar uma 
carga de 1000 kg. A partir da linha 1000, 
o computador desenha as roldanas fi- 
xas, e, na linha 1500 (na versão para o 
MSX, Apple e TK-2000) ou 90 (TRS- 


Color e Spectrum), ele constrói e movi- 
menta as roldanas e os pesos. 

No programa para o Apple e o 
TK-2000, as linhas 10 a 90 introduzem 
uma tabela de dados que permite dese- 
nhar círculos por meio do comando 
DRAW. 

Ao executar o programa, você obser- 
vará que quanto maior for o número de 
polias menor será o peso necessário pa- 
ra levantar a carga. Para calcular o peso 
em um sistema desse tipo, basta dividir 
a carga pelo número de polias. Se você 
quiser levantar 1000 kg, usando seis po- 
lias, deverá empregar um peso de apro- 
ximadamente 166 kg. Em alguns casos 
ocorre o contrário: sabe-se quanto pesa 
a carga e qual a força máxima disponí- 
vel. Nesse caso, divide-se a carga pela 
força e arredonda-se o resultado para O 
maior número par. Por exemplo, você sa- 
be que consegue levantar 60 kg usando 
só uma polia; logo, para levantar 250 kg, 
você deverá utilizar seis polias. 


 POUPANDO ESFORÇOS 


Como no caso da alavanca, também 
em um sistema de polias a força está re- 
lacionada com a distância. Você pode 
notar, em nossa simulação, que quanto 
maior é o número de polias mais a ex- 
tremidade livre da corda se aproxima do 
chão. Isso mostra que, para levantar um 
peso a uma certa altura usando uma for- 
ça menor, você terá que puxar, para 
compensar, uma corda de comprimen- 
to maior. Na verdade, em um sistema 
desse tipo, o número de polias já deter- 
mina qual será o comprimento da cor- 
da que precisaremos puxar para que a 
carga suba em uma unidade. Por exem- 
plo, em um sistema de duas polias, te- 
mos que puxar dois metros de corda pa- 
ra que a carga suba um metro. 

O sistema que nosso programa simu- 
la na tela do microcomputador não é o 
mais comum. Em geral, as barras pas- 
sam pelo centro das roldanas, manten- 





Simulação das polias no MSX. 


do-as paralelas e bem próximas. Um sis- 
tema de seis polias seria visto, então, co- 
mo três discos colados um ao outro, na 
vertical, e, abaixo deles, pendurados pe- 
las cordas, mais três discos, onde se 
prende a carga. 





O ELEVADOR HIDRÁULICO 


Outro instrumento que funciona da 
mesma maneira que a alavanca é o ele- 
vador hidráulico. Ele é utilizado para le- 
vantar grandes cargas — de automóveis 
até foguetes e aviões. 

O freio dos automóveis atuais, que 
funciona baseado em um princípio idên- 
tico, mostra como a força de nossos pés 
pode ser amplificada a ponto de parar, 
em um tempo muito reduzido, o movi- 
mento de um corpo tão pesado. 





SIMULAÇÃO 


Para observar o funcionamento do 
elevador hidráulico, digite e rode o pro- 
grama a seguir. 


30 BORDER O: 
CLS 
50 GOSUB 300 
90 INPUT "Curso do embolo (l- 
90) 7? “"5tr 
100 IF tr<l OR 
GoTo 90 
110 FOR k=1 TO Er 
120 PLOT 40,128-(k-1): DRAW 
INK 7;10,0: PLOT 40,128-k: 
DRAW 15,0 
130 PLOT 175,127+(k-1)/10: 
DRAW INK 1:;56,0: PLOT 175,127 
+k/10: DRAW INK 1,56,0 
135 PRINT INK O;AT 3,5;k; 
O;AT 3,25; INT (k/10) 
140 NEXT k 
150 INK O: PRINT 
Novamente ? (Bm 
160 IF INKEY5="5s” 
170 IF INKEYS$<>"n” 
160 
180 STOP 
300 FOR n=6 TO 18: PRINT 
PAPER 1;AT n,5;” ": NEXT n 
310 FOR n=6 TO 18: PRINT 
PAPER 1;AT n,22;" "a 
NEXT n 
320 FOR n=18 TO 21: 
PAPER 1;AT n,5;" 
": NEXT n 
330 PLOT 39,155: DRAW 0,-155: 
DBAW 192,0: DRAW 0,155: PLOT 
56,155: DRAW 0,-124: DRAW 120, 
O: DBAW 0,124 
340 PLOT 40,127: DBAW -2,0: 
PRINT AT 6,3;"0": PLOT 40,37: 
DRAW -2,0: PRINT AT 17,2;"90": 
PLOT 232,127: DRAW 2,0: PRINT 


PAPER 7: INK O: 


tr>90 THEN 


INK 


AT 21,0;" 

OR nm) ” 
THEN RUN 
THEN GOTO 


PRINT 











AT 6,30;"0" 

350 PLOT 232,137: DRAW 2,0: 
PRINT AT 4,30;"9" 

360 FOR n=127 TO 37 STEP -10 
370 PLOT 40,n: DBAW -2,0: NEXT 
n 

380 PLOT 232,132: DBAW 2,0 

390 PLOT 120,35: DRAW 0,-35 
400 PLOT 110,40: DRAW 20,0: 
DRAW -5,5: DBAW 5,-5: DRAW -5, 
-=5 

410 INK 7 

440 RETURN 


10 PMODE 3,1 

20 PCLS 

30 SCREEN 1,0 

40 DIM P(4),R(3J1) 

50 GOSUB 300 

60 GET(32,52)-(43,38),P,6 

70 GET(182,52)-(223,23),R,6 

80 IF INKEYS="" THEN BO 

90 CLS: INPUT"DESLOCAMENTO DO EM 
BOLO (1-90) " ; TR 

100 IF TR<1l OR TR>90 THEN 90 
110 SCREEN 1,0:FOR K=1 TO TR 
120 PUT(32,52+K)-(43,38+K),P, PS 
ET 

130 PUT(18B2,52-K/10)-(223,23-K/ 
10) ,R, PSET 

140 NEXT 

150 IF INKEY$="" THEN 150 

160 CLS:PRINT ” NOVAMENTE (S/N) 


170 AS=INKEYS:IF AS<>2"5" AND AS 
€<>"N” THEN 170 

180 IF AS="S" THEN RUN 

190 CLS: END 

300 DRAW"BM30,30C2D131R195U131B 
L45D20NR45D96L1ISU9ENLISUZO” 
310 PAINT(200,/7/0),3,2 

320 DRAW"BM32,50C3A10BR140R41" 
330 DRAW"BM127,161C2UZ0BHBC4RI6 
NH5G5” 

340 LINE(34,48)-(41,41),PSET,BF 
350 LINE(191,48)-(215,23),PSET, 
BF 

360 FOR K=0 TO 9 

370 COLOR 2:LINE(26,50+K*10)-(3 
0,50+K*10), PSET 

380 NEKT 

390 DRAW"BM20, 46C4DEL4U6R4BD9ON 
L4D6L4UGBLA4AND6L4DIR4C2” 

400 FOR K=0 TO 9 STEP 3 

410 LINE(225,50-K)-(229,50-K),P 
BET 

420 NEXT 

430 DRAW" BM232, 4BC4AD6R4VEL4ABUSN 
R4U3R406" 

440 RETURN 

10 SCREEN O:COLOR 1,14,14 

20 LOCATE 3,10:INPUT"Qual o cur 
so do êmbolo(1-90)";€C 

30 IF C<l OR C>90 THEN 20 

40 GOSUB 300 

50 FOR I=0 TO C-1 


60 LINE(31,37+1)-(44,50+1),14,B 
F 





70 LINE (34,50+1)-(39,43+1),15,B 


F 

80 LINE(181,50-1/10)-(225,50-I/ 
10),2 

10),15,BF 

100 NEXT I 

110 IF INKEY$=""* THEN 110 ELSE 
Goto 10 

300 SCREEN 2:COLOR 15,14,14 

310 DRAW"BM30, 30C2D131R195U131B 
L45D20NR45D96L135U96NLISUZO” 
320 PAINT(200,70),2,2 

330 DRAW"BM32,50C3R10BR140R41” 
340 DRAW"BM127, 161C2U20BH8C4R16 
NH5G5” 

350 LINE (34,48)-(39,41),,BF 

360 LINE(191,48)-(215,23),,.BF 
370 FOR K=0 TO 9 

380 LINE(26,50+K*10)-(30,50+K*1 
0),2 

390 NEXT K 

400 DRAW"BM20,46C4D6L4AU6R4BDSON 
L4D6ELAUGBL4ND6L4DIR4ACZ” 

410 FOR K=0 TO 9 STEP 3 

420 LINE (225,50-K)-(229,50-K) 
430 NEXT K 

440 DRAW"BM232,4BC4DOR4AU6LABUSN 
R4U3R4D6” 

450 RETURN 


Cato 


20 HOME : HTAB (5): VTAB (10) 


30 INPUT "QUAL O CURSO DO EMBO 


LO(1-90)? ";C 

40 GOSUB 300 

50 FORI =1TOC-1 

55  HCOLOR= O 

60 HPLOT 31,49 + 1 TO 44,49 + 
I 

70 HPLOT 34,42 + I TO 39,42 + 
I 

80 HCOLOR= 3 

90 HPLOT 34,49 + 1 TO 39,49 + 
I 

100 HPLOT 181,50 - 1 / 10 TO 2 
24,50 - 1/10 

110 HPLOT 191,25 - 1 / 10 TO 2 
Adao * 1 J 0 


120 NEXT 1 

130 FORT = 1 TO S000: NEXT T: 
TEXT : GOTO 20 

300  HGRZ HCOLOR= 3 


310 HPLOT 30,30 TO 30,161 TO 2 





A alavanca na tela do TRS-Color. 


25,161 TO 225,30 

320 HPLOT 180,30 TO 180,146 TO 
45,146 TO 45,30 

330 FORI = 0 TO 9 

340 HPLOT 30,50 + I TO 45,50 + 
I 

350 HPLOT 180,50 + I TO 225,50 
+ 1 

360 NEXT 1 

370 FORI = 0 'ToilS 

380 HPLOT 30,146 + I TO 225,14 

6+1 

390 NEXT I 

400 FORI = 0 TOS 

410 HPLOT 26,50 + 1 * 10 TO 30 
50 + I * 10 

420 NEXT I 

430 FOR I = 0 TOO9STEPI3 

440 HPLOT 225,50 - I TO 229,50 
-1 

450 NEXT 1 

460 HPLOT 20,46 TO 20,53 TO 15 
,53 TO 15,46 TO 19,46 

470 HPLOT 11,140 TO 7,140 TO 7 
,136 TO 11,136 TO 11,143 TO 7,1 

43 

480 HPLOT 20,136 TO 20,143 TO 

15,143 TO 15,136 TO 20,136 

490 HPLOT 232,48 TO 237,48 TO 

237,55 TO 232,55 TO 232,48 

500 HPLOT 232,42 TO 237,42 TO 

237,35 TO 232,35 TO 232,39 TO 2 

37,39 

510 HPLOT 103,140 TO 117,140 T 

O 110,136: HPLOT 117,140 TO 110 
144 

530 FOR J=1TOjl4 

540 HPLOT 34,43 + J TO 39,43 + 
J 

550 NEXT J 

560 FORK=1TO2Z6 

570 HPLOT 191,24 + K TO 215,24 
+ K 

580 NEXT K 

590 RETURN 


Inicialmente, o computador pergun- 
ta quanto você quer que o êmbolo des- 
ça, em um intervalo de 1 a 90. A rotina 
que começa na linha 300 desenhará o 
elevador e o laço da linha 110 (na ver- 
são para os micros Spectrum e TRS- 
Color) ou da 50 (MSX, Apple e 
TK-2000) deverá movimentá-lo. 





| PRINCÍPIOS 


Quanto maior for o diâmetro do êm- 
bolo maior terá que ser a força aplica- 
da. Na nossa simulação, ele é bem me- 
nor que o diâmetro do elevador; portan- 
to, a força para empurrá-lo para baixo 
será bem menor que o peso do objeto 
a ser levantado. Observamos, porém, 
que, assim como no caso das polias, O 
trajeto do êmbolo é maior que a altura 
da carga — ou seja, teremos que mover 
o êmbolo em várias unidades para que 
o elevador suba uma só. 
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CONTROLE POR | 





TEC 


Uma das características mais impor- 
tantes num jogo é a qualidade de inte- 
ração computador-usuário. Na maioria 
dos casos, o joystick oferece um contro- 
le mais sofisticado, mas o teclado o su- 
pera, sem dúvida alguma, no que diz 
respeito à versatilidade. 

Em geral, utilizam-se os comandos 
INKEY$ e GETS para detectar se uma 
tecla está sendo pressionada. Esses co- 
mandos, porém, apresentam uma defi- 
ciência: só são capazes de detectar duas 
teclas ao mesmo tempo caso uma delas 
seja SHIFT (ou similares, como CTRL 
ou SYMBOL/SHIFT). 

A detecção de tais combinações é su- 
ficiente para a maior parte dos propó- 
sitos, mas não para todos. Se quisésse- 
mos, por exemplo, controlar os movi- 
mentos vertical e horizontal de uma na- 
ve, disparar o laser e lançar bombas, si- 
multaneamente, seríamos obrigados a 
acionar quatro teclas. A solução para es- 
se tipo de problema depende do próprio 
computador, 





EFEITO DO ACIONAMENTO DAS TECLAS | 


Para entender como se dá a detecção 
múltipla, precisamos examinar os meca- 
nismos que permitem ao computador 
saber qual tecla está sendo pressionada. 
Os micros pessoais utilizam, comumen- 
te, dois processos. O primeiro consiste 
em '“'varrer” o teclado de tempos em 
tempos, verificando se alguma tecla foi 
pressionada. No TRS-Color, por exem- 
plo, o teclado é “'varrido”' a cada 1/100 
de segundo; já no MSX, isso ocorre a 
cada 1/60 de segundo. 

No segundo processo, o acionamen- 
to de uma tecla gera uma mensagem — 
chamada interrupção —, que é enviada 
ao processador. O computador inter- 
rompe sua tarefa e verifica o teclado, em 
busca da tecla pressionada. Esse méto- 
do é bem mais eficiente e versátil que o 
da varredura, porque dispensa a verifi- 
cação das teclas quando não estão sen- 
do acionadas — ou seja, O primeiro mé- 
todo varre o teclado de tempos em tem- 
pos, mesmo que nenhuma tecla seja 
acionada; o segundo só faz a varredura 


"quando há acionamento de teclas. 


Seja qual for o método utilizado, o 





AS MÚLTIPLAS 


computador deve ser capaz de identifi- 
car a tecla acionada o mais rapidamen- 
te possível. A maioria dos teclados em- 
prega um sistema denominado gerador 
de matriz, fornecendo ao computador 
um número que identifica a posição da 
tecla na matriz. O que vai ocorrer de- 
pois da geração do número varia de má- 
quina para máquina. 


| 


O teclado do Spectrum compõe-se de 
quatro fileiras com dez teclas cada. Su- 
pondo que cada fileira seja dividida ao 
meio, teremos oito fileiras com grupos 
de cinco teclas. Cada grupo, por sua 
vez, tem comunicação com uma porta 
de entrada/saída. O teclado do Spec- 
trum facilita a detecção de várias teclas 
acionadas ao mesmo tempo, pois pos- 
sui 65536 dessas portas, identificadas 
por números de O a 65535. A tabela a 
seguir fornece o endereço da porta pa- 
ra cada um dos oito grupos: 


GRUPO PORTA 
VCXZCAPS/SHIFT 0 652/76 
GFDSA 1 65022 
QWERT 2 64510 
54321 3 63486 
67890 “4 61438 
YUIOP 5 57342 
HJKL ENTER 6 49150 
B NM SYM/SHIFT ESPAÇO 7 32766 


Para calcular o endereço da porta de 
cada grupo, use esta fórmula: 


254 + 256"(255 — 2 in) 


Nessa fórmula, n significa o número 
do grupo listado na tabela. 

Digite e rode o programa a seguir. Ele 
calcula o endereço da porta para um cer- 
to grupo de teclas. 


10 INPUT "DIGITE NUMERO DO GR 
UPO DA TECLA “;n 

20 PRINT '"NUMERO DO GRUPO DA 
TECLA "in 

30 PRINT "ENDERECO DA PORTA ” 
:254+256* (255-2“n) 

40 GOTO 10 
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No controle de jogos, o joystick ganha 
em sofisticação, enquanto o teclado 
se destaca pela versatilidade. Veja 
como fazer para que sejam detectadas 
várias teclas ao mesmo tempo. 


Cada endereço de porta na tabela da- 
da anteriormente assume um valor, de- 
pendendo da tecla pressionada. 

Para usar corretamente o próximo 
programa, remova a impressora ou 
qualquer outra interface. Caso contrá- 
rio, os resultados serão alterados. Digi- 
te estas linhas, rode, e acione de dife- 
rentes maneiras as teclas de 1 a 5, inclu- 
sive várias ao mesmo tempo: 


10 PRINT AT 0,0;IN 63486 
20 GOTO 10 


Observe que os números exibidos na 
tela mudam conforme a combinação de 














teclas acionadas. O valor no endereço 
da porta é armazenado em um único 
byte, no qual o quinto bit é sempre 1. 
Normalmente, o sexto e o sétimo bits 
são 0. Porém, quando houver um sinal 
no soquete EAR, ou quando o compu- 
tador esquentar, o sexto bit passa a ser 
1. Os bits de O a 4 representam as teclas 
do grupo. Cada bit assume valor 1 
quando a tecla correspondente a ele não 
estiver sendo pressionada e valor 0, 
quando esta for pressionada. O quarto 
bit corresponde à tecla da extrema es- 
querda do grupo e o bit zero à tecla da 
extrema direita. 


O EFEITO DO ACIONAMENTO 

| — DAS TECLAS 

- COMO FUNCIONA 
O SEU TECLADO 

a OS DIFERENTES MÉTODOS 





Quando um determinado bit contém 
o valor 1, ele contribui para o valor que 
está na porta; quando seu valor é 0, não 
contribui com nada. A contribuição de 
cada bit para o valor na porta está na 
tabela a seguir: 


BIT 87654321 
CONTRIBUIÇÃO 1286432168421 


Portanto, se o sexto bit for O (nada co- 
nectado em EAR) e a tecla 5 estiver sen- 
do pressionada, a disposição dos bits na 
porta 63486 será 00101111, o que equi- 
vale a 0+0+32+0+8+4+2+1=47. As- 
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O CONTROLE DO JOGO 
A MATRIZ DO TECLADO 
DETECÇÃO MULTIPLA 
DE VÁRIAS TECLAS 

UM TECLADO A QUATRO MÃOS 





sim, podemos detectar o acionamento 
das cinco teclas de um grupo. O mesmo 
se aplica aos outros grupos de teclas. 
Poderíamos, por exemplo, acrescentar 
ao programa linhas que imprimissem na 
tela o valor de cada porta. 


As teclas do TRS-Color estão dispos- 
tas numa matriz dé sete linhas por oito 
colunas. São necessários nove bytes de 
memória para armazenar o estado de 
uma linha e de seus oito elementos. Dos 
nove bytes, o primeiro contém o estado 
da linha e os outros oito, o de cada um 
dos oito elementos dela. O arranjo da 
matriz e o método usado na decodifica- 
ção da linha fazem com que, normal- 
mente, seja impossível detectar mais de 
uma tecla ao mesmo tempo. 

No entanto, podemos “enganar” o 
varredor de teclado, levando-o a não de- 
tectar nenhuma tecla numa certa linha, 
O que, na varredura seguinte, o obriga- 
ria a assumir qualquer tecla como uma 
nova ocorrência. Para isso, é necessá- 
rio colocar no primeiro byte o valor he- 
xadecimal FF, produzindo uma altera- 
ção no estado das linhas. 

Esse método não é muito satisfató- 
rio, pois requer frequentes mudanças ao 
longo do programa. Mas há uma solu- 
ção alternativa: chamar uma rotina em 
linguagem de máquina para forçar uma 
varredura completa do teclado, sempre 
que precisarmos. Como você verá, este 
foi o sistema usado nos programas que 
apresentaremos mais adiante. 


— E 


No TK-2000, as teclas estão dispos- 
tas num gerador de matriz de oito linhas 
por seis colunas. Existem dois endere- 
ços de memória que trabalham com a 
matriz: o endereço — 16384, ao qual de- 
mos o nome de KBOUT, eo — 16368, 
que chamamos de KBIN. KBOUT con- 
trola o estado das linhas da matriz. Ca- 
da um de seus bits é responsável por 
uma linha na matriz de tecla. Se um bit 
de KBOUT possui valor 1, todos os ele- 
mentos (teclas) da linha corresponden- 
te também serão iguais a 1. 

KBIN, por sua vez, controla o esta- 
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O que é roll-over? 

Esta é uma expressão inglesa que 
| designa uma característica do proces- 
| sador de teclados de algumas linhas de 
microcomputadores: a possibilidade de 
| armazenar em uma memória interme- 
diária (buffer de teclado) as n últimas 
| teclas pressionadas. 

O número de teclas digitadas que o 
computador consegue armazenar de- 
| pende do tamanho do buffer de tecla- 
| do (se for fixado em hardware) e do 
software de processamento do tecla- 
do. Por isso, falamos em n-key-roll- 
over, ou seja, quantas teclas o rollover 
é capaz de processar. Alguns compu- | 
tadores têm roll-over de duas a cinco 
teclas; outros, de até 128. 

Qual é a vantagem de dispor de roll- 
over no teclado de um micro? Bem, cer- 
tos softwares (sobretudo processado- 
res de texto) não conseguem acompa- 
| nhar um ritmo mais acelerado de digi- 

tação. Se não houver a capacidade de 
roll-over, o computador acaba limitan- 
| do o usuário, que começa a “perder” 
| várias teclas pressionadas rapidamen- 
te, levando a erros irritantes de digita- 
ção. O roll-over afasta esse risco, pois, 
mais cedo ou mais tarde, o programa 
acaba “alcançando” o digitador. 


do dos elementos de cada linha. Somen- 
te os bits de O a 5 de KBIN são usados, 
já que existem apenas seis elementos em 
cada linha. Os bits de KBIN só lêem o 
valor contido nas teclas corresponden- 
tes quando estas são pressionadas — ou 
seja, se nenhuma tecla estiver sendo 
pressionada, KBIN vale O (todos os bits 
são iguais a zero). Esse endereço requer 
uma atenção especial, uma vez que lê ex- 
clusivamente colunas. Se quisermos sa- 
ber a que linha pertencem os elementos 
(teclas) lidos por KBIN, precisaremos 
identificar o valor contido em KBOUT., 

Para forçar a varredura do teclado, 
foi necessário montar uma rotina em lin- 
guagem de máquina. Essa rotina, arma- 
zenada a partir do endereço 770 no pri- 
meiro programa, procura pelo aciona- 
mento de cinco teclas específicas: as 
quatro setas e a barra de espaço. A pres- 
são sobre qualquer outra tecla não terá 
nenhum efeito. 

A rotina usa os endereços 900 a 904 
como indicadores do estado das teclas. 
Se o valor for 1, a tecla foi acionada; 


se for 0, não houve pressão sobre ela. 
Como se pode observar nas linhas 135 
a 155, esses endereços são constante- 
mente zerados. Isso é feito para a roti- 
na não ““pensar”' que a tecla correspon- 
dente está sempre pressionada. 

Remova o POKE 900,0 da linha 135 
e veja o que ocorre com a mira quando 
se aperta a tecla 1. Ela começa a subir 
e não pára mais. Foi preciso usar ende- 
reços (900 a 904) como indicadores por- 
que, coincidentemente, todas as cinco 
teclas em questão são lidas pelo mesmo 
bit de KBIN — ou seja, na matriz, elas 
estão em linhas diferentes mas em colu- 
nas iguais. 

A rotina do segundo programa fun- 
ciona de maneira semelhante, detectan- 
do seis teclas em vez de cinco. O ende- 
reço inicial foi deslocado para 36900 e 
os indicadores aparecem a partir de 
36800. Essa rotina apresenta um aper- 
feiçoamento: os indicadores são zerados 
dentro dela própria. 
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A matriz que contém as teclas do 
MSX é maior que a dos outros micros: 
compõe-se de dez linhas com oito colu- 
nas cada, totalizando, assim, oitenta te- 
clas. Nela existem duas portas de con- 
trole. A de endereço 170 ativa a linha 
que desejamos ler, enquanto a de ende- 
reço 169 contém o estado das teclas da 
linha ativada, sendo que cada tecla cor- 
responde a um de seus bits. 

Para simplificar, cnamaremos a por- 
ta que ativa as linhas (170) de porta €, 
e a que lê as colunas, de porta B. A por- 
ta C usa somente os bits de O a 3 para 
ativar sequencialmente cada uma das 
dez linhas. Isso é possível graças a um 
decodificador localizado entre a porta 
Ce a matriz. As linhas da matriz de te- 
clas são numeradas de 0a 9. Para ativá- 
las, basta fornecer à porta C o número 
da linha desejada. Ao se ativar uma li- 
nha, todas as suas colunas (teclas) assu- 
mem o valor 1. Quando se pressiona 
uma tecla pertencente a uma linha ati- 
vada, o bit da porta B correspondente 
a essa tecla é zerado. Portanto, se ati- 
varmos uma linha através da porta €, 
e, logo em seguida, lermos a porta B sem 
que nenhuma tecla seja acionada, vere- 
mos que a porta B tem valor 255, ou se- 
ja, todos os oito bits têm valor igual a 1. 

O programa a seguir ativa a linha 8 
da matriz — que contém as teclas das 
setas e barra de espaço — e, em segui- 
da, lê a porta B, verificando quais bits 
foram zerados, isto é, quais teclas foram 
acionadas. 
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Os usuários do Apple devem ter no- 
tado a ausência de programas para esse 
micro. É que o método utilizado pelo 
Apple para detectar teclas torna quase 
impossível — dentro dos propósitos des- 
te artigo — criar rotinas que detectem 
acionamento múltiplo de teclas. 

Os programas apresentados a seguir 
permitem-nos mover uma mira pela te- 
la e também atirar. Nos micros TRS- 
Color, MSX e TK-2000, use as setas pa- 
ra mover e a barra de espaço para ati- 
rar. No Spectrum, use as setas para mo- 
ver e o número 9 para atirar. Os pro- 
gramas do TRS-Color e do TK-2000 re- 
querem um pequeno programa em lin- 
guagem de máquina para detectar as 
teclas. 


10 CLEAR 200,32746 

20 FOR K=32747 TO 32767:READ A: 
POKE K,A:NEXT 

30 DATA 48,140,9,191,1,155,134, 
126,183,1,154,57,52,3,134,127,1 
83,1,81,53,131 

35 EXEC 32747 

40 V=247:P=1295:L=1295:CLS3 

50 IF PEEK(341)=V AND P>1055 TH 
EN P=P-32 

60 IF PEEK(342)=V AND P<1504 TH 
EN P=P+32 

70 IF PEEK(343)=V AND P>1024 TH 
EN P=P-1 

80 IF PEEK(344)=V AND P<1535 TH 
EN P=P+] 

90 IF PEEK(345)=V THEN SOUND 20 





100 POKE L,175:POKE P,43:L=P:GO 
TO 50 

Digite e rode o programa do TRS- 
Color para se certificar de que não há 
erros. Em seguida, acrescente a linha 35 
e rode-o novamente. 


35 EXEC 32747 


10 BORDER O: PAPER O: INK 7 

20 CLS 

30 LET v=-11l: LET x=15 

40 LET p=63486 

50 GOSUB 220 

60 IF i=31 THEN GOSUB 290 

70 LET p=61438 

BO GOSUB 220 

90 IF i=59 THEN GOSUB 380 
100 IF i=47 THEN GOSUB 320 
110 IF 1=55 THEN GOSUB 350 
120 IF i=61 THEN GOSUB 410 
130 IF i=57 THEN GOSUB 380: 
GOSUB 410 

140 IF i=45 THEN GOSUB 320: 
GOSUB 410 

150 IF i=53 THEN GOSUB 350: 
GOSUB 410 

160 IF i=43 THEN GOSUB 380: 
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GOSUB 320 

170 IF i=51 THEN GOSUB 380: 
GOSUB 350 

180 IF i=41 THEN GOSUB 380: 
GOSUB 320: GOSUB 410 

190 IF 1=49 THEN GOSUB 380: 
GOSUB 350: GOSUB 410 

200 GOSUB 250 

210 GoTO 40 

220 LET i=IN p 

230 IF 12191 THEN LET 1=i-64 
240 RETURN 

250 PRINT AT y,x;" + € 

260 PRINT AT y+1,x;” e 

270 PRINT AT y-1,x;” É 

280 RETURN 

290 IF x<1l THEN RETURN 

300 LET x=x-1 

310 RETURN 

320 IF vy>219 THEN RETURN 

330 LET y=y+1 

340 RETURN 

350 IF vy<2 THEN RETURN 

360 LET vy=y-1 

370 RETURN 

380 IF x>28 THEN RETURN 

390 LET x=x+1 

400 RETURN 

410 SOUND .004,20 

420 SOUND .004,10 

430 PRINT AT y,x;” af 

440 RETURN 


nt 


10 COLOR 1,5,5:S5CREENZ2,1 

20 X=120:Y=90:H=240:B=169:C=170 
30 FOR K=1 TO B:READ A 

40 B$=BS+CHRS (A) 

50 NEXT 

60 DATA 129,66,60,36,36,60,66,1 
29 

70 SPRITES(0)=BS 

BO OUT C, (INP(C) AND HJOR 8 

90 I=INP(B) 

100 IF(I AND 128)=0 THEN X=K+3 
110 IF(I AND 64)=0 THEN Y=Y+3 
120 IF(I AND 32)=0 THEN Y=Y-3 
130 IF(I AND 16)=0 THEN X=X-3 
140 IF(I AND 1)=0 THEN PLAY"L64 
BAC” 

150 PUTSPRITE O, (X,Y),1,0:GOTO 
Bo 


10 HOME 

15 FOR K = 800 TO 804 
20 READ À 

25 POKE K,A 

30 NEXT 

35 DATA 64,32,16,8,4 


40 FOR K = 770 TO 793 

45 READ A 

50 POKE K,A 

55 NEXT 

60 DATA 162,0,189,32,3,141 
65 DATA 0,192,169,1,45,16 

70 DATA 192,240,3,157,132,3 
75 DATA 232,224,5,208,235,96 
80  HGR2 


B5 H = 138:V = 96 
90 X = 138:7 = 96 


95  HCOLOR= 0 

100 HPLOT H,V TO H + 4,V 

105 HPLOT H+ 2,V - 2 TO H+ã2 
TO V+2Z 


110 = XV =] 

115 HCOLOR= 3 

120 HPLOT X,Y TO X + 4,7 

125 HPLOT X + 2,Y - 2 TO X + 2 
T+ £ 

130 CALL 770 

135 IF PEEK (900) = 1 AND Y > 
3 THEN Y = Y- 2: POKE 900,0 
140 IF PEEK (901) = 1) AND Y «< 


188 THEN Y = Y + 2: POKE 901,0 
IF PEEK 
THEN X = 


145 
2174 


(902) = 1 AND X < 
X + 2: POKE 902,0 


(903) = 1 AND X > 
- 2: POKE 903,0 
(904) = 1 THEN P 
POKE 904,0 


150 IF PEEK 
1 THEN X = X 
155 IF PEER 
RINT CHR$S (7): 
160 GcoTo 95 


“UM TECLADO A QUATRO MÃOS 





Rodando o programa a seguir, você 
verá, logo após a introdução, dois seres 
vestindo “traje lunar"”, em posição de 
duelo. Este jogo foi feito para dois jo- 
gadores. No Spectrum, as teclas de co- 
mando são as seguintes: | move o ser da 
esquerda para cima, Q, para baixo, e À 
dispara o laser; O, P e E controlam os 
movimentos do ser da direita. No TRS- 
Color, o jogador da esquerda usa as se- 
tas para cima e para baixo e a tecla Z; 
o da direita usa —, O e /. No MSX, o 
da esquerda usa E, De F; o da direita 
usa 1, Je H. No TK-2000, finalmente, 
o jogador da esquerda usa 1, Ae Q;o 
da direita, O, (:) e P. 


10 CLS:PMODE 4,1:5S5=PEEK (186) *2 
56+PEEK (187) 

20 FOR K=SS TO 88+480 STEP 32 
30 FOR J=K TO K+3:READ A:POKE J 
(A:NEXT J,K 

40 DATA 1,192,3,128,3,192,3,192 
(/6,0,0,96,15,192,3,240 

50 DATA 31,192,3,248,63,192,3,2 

52,15,0,0,240,15,135,113,240 

60 DATA 15,248,15,240,15,248,15 
| 240,15,128,1,240,15,128,1,240 
70 DATA 15,128,1,240,12,192,3,4 

8,12,192,3,48,14,224,7,112 

80 DIM L(6),R(6),B(6) 

90 GET(0,0)-(15,15),L:GET(16,0) 

=(31,15),R,6 

100 PCLS:PRINT €610,"D U E L O” 
110 PRINT €98,"GANHE PONTOS ACE 

RTANDO O SEU OPONENTE. CADA 
JOGADOR TEM SEIS BA 
LAS.” 

120 PRINT:PRINTTAB(6);"C ONT 

ROL ES" 


130 PRINT:PRINT” JOGADOR 1"; TAB 


(19) ;" JOGADOR 2º 


140 PRINT:PRINT” UP ==CIM 
A-- = 
150 PRINT” DOWN --BAILXO- 
p” 
160 PRINT” PA --FOGO-- 


170 PRINT €482,"qualquer tecla 

para comecar”; 

180 IF INKEYS="" THEN 180 

190 X1=16:X2=232:Y1=BB:Y2=8B:Bl1 
=6:B2=6:51=0:52=0:PCLS 

200 PUT(K1L,Y1)-(X1+15,71+15),L, 
PSET: PUT(X2,72)-(X2+15,72+15),R 
+, PSET 

210 FOR K=1 TO 6:CIRCLE(10*K,2) 
+ 1, 5:CIRCLE(255-10*K,2),1,5:NEX 
L 

220 SCREEN 1,1:AS=INKEYS 

230 Li=Yl:L2=T2 


240 IF PEEK(341)=247 AND Y1>16 
THEN Yl=Y1-B 

250 IF PEEK(342)=247 AND Y1<176 
THEN Y1=Y1+8 

260 IF PEEK(343)=223 AND Y2>16 
THEN Y2=Y2-8 

270 IF PEEK(338)=251 AND Y2<176 
THEN Y2=Y2+8 

280 IF B1l=0 AND B2=0 THEN 360 


290 IF Ll=Y1 THEN 310 

300 PUT (X1,L1)-(X1+15,L1+15),B 
“PUT (XI, Y1)-(X1+15,Y1+15),L 

310 IF L2=Y2 THEN 330 

320 PUT(X2,L2)-(X2+15,L2+15),B: 
PUT (X2,72)-(X2+15,72+15),R 

330 IF PEEK(340)=247 GOSUB 1000 
340 IF PEEK(345)=223 GOSUB 1500 
350 GTo 230 

360 CLS:IF 81>52 THEN PRINT 696 
+ "JOGADOR 1 GANHOU POR";S1;"A"; 
S2:GO0OTO 390 

370 IF 82>81 THEN PRINT €96,"JO 
GADOR 2 GANHOU POR";S2;"A";81:G 
OTO 390 

380 PRINT 696," HOUVE EMPATE :”"; 
81;"Aº;81;"1" 

390 AS=INKEYS:GOTO 180 

1000 IF Bl=0 THEN RETURN 

1010 PLAY"T12005AGFEDC” 

1020 FOR N=32 TO 232 STEP 16 
1030 LINE (N+1,Y1+7)-(N+6, 7Y1+7), 
PSET 

1040 LINE (N+1,71+7)-(N+6,Y1+7), 
PRESET 

1050 NEXT 

1060 IF Y1l=Y2 OR Y1+8=Y2 THEN 8 
1=81+1:CIRCLE(10*81,8),2,5:PLAY 
"TB01GDBC" 


1070 CIRCLE(10*B1,2),1,0:B1l=B1- 
1 

1080 RETURN 

1500 IF B2=0 THEN RETURN 

1510 PLAY"TIZ005BAGFEDC” 

1520 FOR N=216 TO 32 STEP -16 
1530 LINE(N+1,Y2+7)-(N+6, Y2+7), 
PSET 

1540 LINE(N+1,72+7)-(N+6,Y2+7), 
PRESET 

1550 NEXT 

1560 IF Y2=Y1 OR Y2+8=Yl THEN S 


2=82+1:CIRCLE (255-10*82,8),2,5: 
PLAY" TBOILGDBC” | 











1570 CIRCLE(255-10*B2,2),1,0:B2 
«B2-1 
1580 RETURN 


10 BORDER O: PAPER O: INK 7 
20 BRIGHT O: OVER O: CLS 
30 PRINT AT 1,9; INK 6; FLASH 
Ll;" DUELO” 
40 PRINT : PRINT 
50 PRINT INK 5;* 
OS ACERTANDO SEU 
NTE. CADA JOGADOR 
TEM SEIS BALAS." 
60 PRINT : PRINT 
70 PRINT TAB 6; 
ONTROLEB* 


GANHE PONT 
OPONE 


INVERSE 1;"C 


80 PRINT : PRINT " JOGADOR 1 
JOGADOR 2 * 

90 PRINT : PRINT ” 1 » 
=CIMA-- 0 ai 

100 PRINT : PRINT * Q - 
-BAIXO- Pp ” 

110 PRINT : PRINT * h » 
a E ENTER” 

120 PRINT : PRINT : PRINT TAB 


6:"QUE VENCA O MELHOR” 

130 FOR n=USAR "a” TO USB "1"+7 

140 READ d 

150 POKE n,d 

160 NEXT n 

170 DATA 1,3,6,15,31,63,15,15 

180 DATA 192,192,0,192,192,192 

10,135 

190 DATA 15,15,15,15,15,12,12, 

14 

200 DATA 248,248,128,128,128, 

192,192,224 

210 DATA 0,0,0,0,0,0,126,0 

220 DATA 3,3,0,3,3,3,0,113 

230 DATA 128,192,96, 240, 248, 

252,240,240 

240 DATA 15,15,1,1,1,3,3,7 

250 DATA 240,240,240,240,240, 

48,48,112 

260 LET yl=10: LET y2=10 

270 LET bl=6: LET b2=6 

280 LET sl=0: LET s2=0 

290 RESTORE 330: FOR n=1 TO B 

300 READ d,p 

310 SOUND d,p 

320 NEXT n 

330 DATA .1,7,.09,12,.1,7,.09, 

12,.6,7,.45,2,.45,6,.5,0 

340 PRINT 41;AT 0,0; FLASH 1;" 
QUALQUER TECLA PARA COMECAR 


350 LET p=254: GOSUB 570 
360 IF 1=191 THEN GOTO 350 
370 INK 4: BRIGHT 1: CLS 
380 PRINT  INVERSE 1;" JOGADORI 
0 O JOGADORZ" 
390 PRINT "BALAS : 6 
6 : BALAS" 
400 PRINT 41:;AT 0,0; INVERSE 1 
410 GOSUB 600 
420 LET p=63486: GOSUB 570 
430 IF 1=62 OR i=30 THEN 
GOSUB B1O 
440 LET p=6143B: GOSUB 570 
450 IF 1=62 OR i=30 THEN 


GOSUB B40 

460 LET p=64510: GOSUB 570 
470 IF i=62 OR 1=30 THEN 
GOSUB 870 

480 LET p=57342: GOSUB 570 
490 IF 1=-62 OR 1=30 THEN 
GOSUB 900 

500 LET p=49150: GOSUB 570 
510 IF 1=62 OR 1=30 THEN 
GOSUB 1020 

520 LET p=65022: GOSUB 570 
530 IF 1=62 OR i=30 THEN 
GOSUB 930 

540 GOSUB 600 

550 IF bl=0 AND b2=0 THEN 
GOTO 1110 

560 GOTO 420 

570 LET i=IN p 

580 IF 1>191 THEN LET i=1-64 
590 RETURN 

600 PRINT AT vy1,1;CHR$ 144; 
CHARS 145 

610 PRINT AT vl+1,1;CHAS 146; 
CHR$S 147 

620 PRINT AT y2,29;CHA$S 149; 
CHRS 150 

630 PRINT AT vy2+1,29;CHABS 151; 
CHARS 152 

640 PRINT AT yl-1,1;”" * 

650 PRINT AT vl+2,1;" * 

660 PRINT AT v2-1,29;" * 
670 PRINT AT y2+2,29;" * 


680 PRINT AT 0,9; PAPER 4; INK 
9:sl 

690 PRINT AT 0,22; PAPER 4d; 
INK 9;82 


700 PRINT AT 1,9;bl 
710 PRINT AT 1,22;b2 
720 RETURN 
730 PRINT AT 
CERTOU 1º 


740 RESTORE 780: 
750 READ d,p 

760 SOUND d,p 
770 NEXT n 

780 DATA .5,2,.4,2,.2 
Bb :.,84,84,284,€, .2,Zp> 
5,2 
790 


10,10;"AAGH! ME A 


FOR n=1 TO 11 


de bo 
5 bo 
to wa 


PRINT AT 10,10;* 


800 RETURN 

810 IF vyl<4 THEN RETURN 

B20 LET vl=yl-1 

830 RETURN 

B40 IF vy2<4 THEN RETURN 

850 LET y2=y2-1 

860 RETURN 

870 IF y1>18 THEN RETURN 
B80 LET vyl=vyl+1 

B90 RETURN 

900 IF vy2>18 THEN RETURN 
910 LET vy2=y2+1 

920 RETURN 

930 IF bl=0 THEN RETURN 

940 SOUND .01,4: SOUND .01,0 
950 FOR n=3 TO 27 

960 PRINT AT vyl,n;” ";CHRS 148 
970 NEXT n 

980 PRINT AT y1l,27;” *” 

990 IF vl=y2 OR vyl=y2+1 THEN 
LET Bl=sl+1l: GOSUB 730 
1000 LET bl=bl-1 


1010 RETURN 

1020 IF b2=0 THEN RETURN 

1030 SOUND .01,0: SOUND .01,-10 
1040 FOR n=27 TO 3 STEP -1 

1050 PRINT AT y2,n;CHR$ 148;" * 
1060 NEXT n 

1070 PRINT AT vy2,3;" * 

1080 IF v2=vl OR vy2=y1l+1 THEN 
LET =2=s2+1: GOSUB 730 

1090 LET b2=b2-1 

1100 RETURN 

1110 IF sl>s2 THEN PRINT AT 10 
,5; FLASH 1;” JOGADOR 1 VENCEU 
ai 

1120 IF =2>Bl THEN PRINT AT 10 
15; FLASH 1;” JOGADOR 2 VENCEU 

| Red 

1130 IF ml==2 THEN PRINT AT 10 
110; FLASH 1;”" EMPATE ! * 

1140 GOTO 260 

10 GoTO 170 

15 91=81-1:LINE(254,Y1+5)-(20,% 
1+5),15:LINE(254,Y71+5)-(20,Y71+5 
Jd 

20 IFY1I>Y2-5ANDYI<Y2+13THENPI=P 
1+1: PUTSPRITEZ + (X2 ' T2) 6, 2 

25 FORT=0TOS0:NEXT: RETURN 

30 982=82-1:LINE(0,Y2+5)-(235,Y2 
+5),15:LINE(0,Y2+5)-(235,72+5), 


1 

35 IFY2>Y1-5ANDY2<Y1+13THENP2=P 
2+1: PUTSPRITEL, (X1,Y1),6,2 

40 FORT=0TOSO:NEXT:RETUAN 

45 CLS:COLOR 15,2,2 

50 LOCATE12,2: PRINTDUELO ESTEL 


55 PRINT: PRINT" ganhe pontos ace 

rtando o seu oponente” 

60 PRINTTAB(5)"cada jogador tem 
meiga balas” 

65 PRINT:PRINT:PRINT" jogador 1º 
“8SPC(19);"jogador 2": PRIN 


70 PRINTTAB(3)"E -—-------  cim 

A SUR UNOS A 

75 PRINTTAB(3)"D -—----—---  baix 

O “rem é 

80 PRINTTAB(3)"F ------- "fog 
- 


Oo === H 

85 LOCATE10,20:PRINT"<qualquer 
tecla>" 

90 IF INKEY5S="" THEN 90 

95 COLOR 15,1,1:SCREEN 2,1 

100 SPRITES (0) =AS 

105 SPRITES (1) =B$ 

110 SPRITES(2)=€5 

115 IF 91=0 OR 82=0 THEN 225 
120 OUT C, (INP(C) ANDH) 0R3 

125 I=INP(B) 

130 IF(IAND2) =0ANDY1<176THEN Y1 
=Y1+2 

135 IF (IAND4) =0ANDY1I>ITHEN Yl=Y 
1-2 
140 
145 
150 
Y2-2 
155 IF (IAND128)=0ANDY2<176THEN 
Y2=Y2+2 

160 PUTSPRITEL, (X1,Y1),15,0:PUT 
SPRITEZ2, (X2,72),15,1 


IF (IAND8) =0 THEN GOSUB1S 
IF (IAND32)=0 THEN GOSUB30 
IF (IAND64) =0ANDY2>1THEN Y2= 





165 GoTo 115 

170 S1=6:52=6:P1l=0:P2=0:C=170:H 
=240 
175 
69 
180 
185 
190 
195 
200 


X1=5:X2=230:Y1=96:72=96:B=1 


FOR K=1 TO 8 

READ P,Q,R 

AS=AS+CHRS (P) 

B5=BS5+CHRS (Q) 

CS=CS+CHRS (R) 

205 NEXT K 

210 DATA 48,12,129,48,12,66,255 
,255,36,112,14,24 

215 DATA 48,12,24,40,20,36,72,1 
B,66,144,9,129 

220 GOTO 45 

225 SCREENO:CLS 

230 CLS: PRINT"FIM DE JOGO": PRIN 
T 

235 PRINT:PRINT"jogador 1 = ":P 
1" pontos” 

240 PRINT"jogador 2 = ";P2;" po 
ntos” 

245 LOCATEB,20:PRINT"JOGA DE NO 
VO (S/N) ?* 

250 IS=INKEYS:IFIS="S"THEN RUN 

255 IF IS<>"N"THEN 250 

260 CLS:COLOR15,4,4:END 


[O] 


10 P = 36800:0 = 32:81 = 6:52 = 
6G:Pl = 0:P2 = 0:X1 = 1 

15 X2 = 271:Y1l = 96:72 = 96:H1 
= 1:H2 = 271:Vl = 96:V2 = 96 


20 GOTO 85 

23 81 = 81 - À 

30 HPLOT 20,Y1 TO 279,71: HCOL 
OR= O 

35 HPLOT 20,Y1 TO 279,71: HCOL 
OR= 3 


40 IF Y1>Y2-3ANDYI<S TZ 
THEN GOTO 75 

45 RETURN 

50 82 = 582 - À 


55 HPLOT 260,72 TO O,Y2: HCOLO 
R= 0 
60 HPLOT 260,Y2 TO 0,72: HCOLO 


A= 3 
65 IF Y2>2Y1l-3 ANDYZS TI 
+ 6 THEN GOTO 80 


70 RETURN 

75 Pl = Pl + 1: PRINT CHAS (7) 
: RETURN 

80 P2 = P2 + 1: PRINT CHR$S (7) 
: RETURN 

85 HOME :E = 35000: HIMEM: E 
90 F = INT (E / 256): POKE 232 


> e F x 256: POKE 233,F 

95 FORI =ETOE+A4L+2%*3 
2 
100 
105 


READ A: 
NEXT 
110 SCALE= 1: 
115 DATA 20 ,0 
O ,106 ,0 ,138 ,0 ,170 ,0 
O 5234. ,0 ,10 ;l ,42 ,3 
LDO ql (43B ,d ATO «d 
1 434 ,) ,10 ,é ,(4£ ,ê 
1106 ,2 ,138,2 
120 DATA O 72 
219 ,255 ,42 ,45 
419 ,59 ,191 ,9 


POKE I,AÃ 


ROT= O 

142 (O 74 , 
202 

74 qd 

1202 , 

74 ,2 


1,218 
1,213 
1218 


(109 ,73 
(45 ,45 
1109 ,73 


187 31 159 ,105 105 ,137 ,2 
19 ,27 ,223 6 50,0 ,0 
125 DATA O ,72 ,9 ,109 ,209 
127 ,255 ,155 ,45 ,45 ,45 ,173 
27 ,63 ,223 ,83 ,73 ,109 ,209 
87 3d ,223 FA ,)05 ,105 ,26 
223 ,223 ,19 ,0 ,0 ,0 
130 REM SUBROTINA DE LEITURA 
135 REM DO TECLADO 
140 FOR K = 36810 TO 36815 
145 READ A: POKE K,A: NEXT 
150 DATA 64,32,16,8,4,2 
155 FOR K = 36900 TO 36935 
160 READ A: POKE K,A: NEXT 
165 DATA 162,6,169,0,157,19 


1,143,202,224,0,208,248,162,0,1 

89,202,143,141 

170 DATA 0,192,169,32,45,16, 
192,240,3,157,192,143,232,224,6 
,208,235,96 
175 VTAB (4): 
TAB( 399)” F: 


INVERSE : PRINT 


NORMAL 


180 PRINT TAB( 15)" DU ELO 
185  INVERSE PRINT TAB( 39)” 
"1: NORMAL 

190 PRINT PRINT ” GANHE PONT 


OS ACERTANDO O SEU OPONENTE” 
195 PRINT TAB( 6)"CADA JOGADO 
R TEM SEIS BALAS” 


200 PRINT PRINT : PRINT "JOG 
ADOR | -------=-=-==---== === JOGA 
DOR 2": PRINT 

205 PRINT ” 1 o qu cm o ca q a mm a 
MÃ--=—-—=——— —= 0” 

210 PRINT ”º Doo era ds FO 
GO — e — em - pº 

215 PRINT * A ces. BAI 
EQ = = ss e 

220 PRINT : PRINT PRINT : PR 





INT 
225 BTAB (13): 
"QUALQUER TECLA”: NORMAL 


INVERSE PRINT 


230 GET 23: IF Z$ = "”" THEN 23 
Q 

235  HGR2 : HCOLOR= 3 

240 DRAW 1 AT X1,Y1: DRAW 2 AT 
X2,Y2 

245  XDRAW 1 AT H1l,VIlI: XDBAW 2 

AT H2,V2 

250 Vl = Ti:VZ = Ti 

255 DRAW 1 AT X1,Y1: DRAW 2 AT 
X2,Y2 

260 CALI. 36900 

265 IF Sl =0OORS2=0 THEN 
GoTo 305 

270 IF PEEK (P) = O AND TZ < 
181 THEN Y2 = Y2 + 3 

275 IF PEEK (P + 1) = Q THEN 
GOSUB 50 

280 IF PEEK (P + 2) = Q AND Y 
2 > JO THEN Y2 = 72 -3 

285 IF PEEK (P + 3) = Q AND Y 
1 > 10 THEN Y1 = FT) - 3 

290 IF PEEK (P + 4) = Q THEN 
GOSUB 25 

295 IF PEEK (P + 5) = Q AND Y 
À < 181 THEN YL = Yl+3 

300 GOTO 245 

305 TEXT : HOME 

310 PRINT "FIM DE JOGO”: PRINT 

PRINT 


315 PRINT "JOGADOR 1 = *;P1l;* 
PONTOS” 


320 PRINT "JOGADOR 2 = *;P2;” 
PONTOS” 

325 PRINT : PRINT : INPUT “JOG 
A DE NOVO (S/N) ?P";AS 

330 IF AS = "Sº THEN RUN 

335 END 









Como vimos em artigos anteriores, 
podemos utilizar vários “truques” para 
explorar melhor os recursos de 

vídeo do TRS-80. Aprenderemos agora a 
gravar uma tela em fita ou disco. 


A sub-rotina VTRANSF, apresenta- 
da no segundo artigo desta série, será 
usada aqui por um programa que copia 
integralmente o conteúdo da tela de vi- 
deo, armazenando-o, depois, em um ar- 
quivo de fita ou disco. Um outro pro- 
grama permitirá a realização da opera- 
ção inversa, ou seja, colocar novamen- 
te na tela um desenho ou texto armaze- 
nado em fita ou disco. 

O método utilizado para isso é seme- 
lhante ao que vimos no artigo anterior, 
quando tratamos da impressão, linha 
por linha, do conteúdo da tela. A dife- 
rença é que, em vez de imprimirmos a 
variável V$, simplesmente a enviamos 
para fita ou disco. 





ARMAZENAGEM EM FITA 


Listamos, a seguir, a versão para fi- 
ta. Depois de digitá-la, acrescente a sub- 
rotina 1000, apresentada no artigo an- 
terior. 


10 CLEAR 500 
20 CLS : PRINT 
ADOR” 

25 PRINT "E PRESSIONE <ENTER> ” 
30 Ct=64 : AS=CHR$ (34) 

35 IF INKEY$="" THEN 35 

40 FOR Vê=0 TO 960 STEP 64 

50 GOSUB 1000:PRINT 4-1,AS:VS; 
AS 

60 NEXT Vê 

70 END 


"PREPARE O GRAV 


A linha 30 determina o comprimen- 
to da linha de vídeo a ser copiada (54 
posições). Ela se encarrega, também, de 
definir a variável A$, que conterá o ca- 
ractere “aspas”. Este será usado na li- 
nha 50, para englobar a variável V$. A 
linha 35 espera que o usuário prepare o 
gravador e pressione a tecla <EN- 
TER>. Só então o programa continua. 
O laço que vai da linha 40 à linha 60 co- 


| | | | | | 
| o 1 | 


OS SEGREDOS 
DO TRS-80 (3) | 


pia as dezesseis linhas da tela, sucessi- 
vamente, na variável V$, usando a fun- 
ção VARPTR, e, em seguida, envia pa- 
ra o gravador 1. 

muito importante colocar todo o 
string V$ entre aspas, pois, se houver al- 
guma vírgula ou ponto e vírgula na te- 
la, a transmissão para a fita será trun- 
cada, provocando um erro de leitura, 
posteriormente. 


ARMAZENAGEM EM DISCO 


A versão para disco é mais simples: 


10 CLEAR 500 

20 OPEN "0”",1,"TELAL/VID* 
30 ct=64 

40 FOR Vt=0 TO 960 STEP 64 
50 GOSUB 1000 : PRINT &1,UV5 
60 NEXT Vê 

70 CLOSE 1:END 


A linha 20 abre um arquivo de aces- 
so sequencial para saída, chamado TE- 
LA1/VID (poderia ser qualquer nome). 
As linhas 30 a 60 funcionam como na 
versão para fita, só que não são neces- 
sárias as aspas em torno de V$. A linha 
70 fecha o arquivo criado. 





LEITURA EM FITA 


O programa que lê o conteúdo de te- 
la no arquivo, trazendo-o de volta ao ví- 
deo, obedece à mesma sequência: 


10 CLEAR 500 
20 CLS : PRINT 
ADOR” 

25 PRINT 
30 Ct=64 
35 IF INKEY$="" THEN 35 

40 FOR Vt=0 TO 960 STEP 64 
50 GOSUB 1000 : INPUT f-1,X5 
55 VS=LEFTS (X3,C%) 

60 NEXT Vt 

70 END 


"PREPARE O GRAV 


"E PRESSIONE <ENTER> ” 


Observe que a sub-rotina VTRANSF 
também serve para o programa de lei- 
tura, sem modificações, já que sua fun- 
ção consiste em determinar a localiza- 
ção e tamanho do string V$ na memó- 
ria. Assim, depois de definida pela linha 
55, a variável V$ é automaticamente ar- 





MAIS USOS PARA VTRANSE 
E 4 - CÓPIA DA TELA 
EM FITA OU DISCO 

E “COMO RECUPERAR 
UMA TELA GRAVADA 


mazenada na memória de vídeo. Sua 
exibição na tela também é instantânea. 

A função LEFTS toma apenas os 64 
primeiros caracteres de XS$, uma vez 
que, na gravação, um caractere ASCII 
13 (linefeed) foi adicionado ao final de 
V$. Esse caractere prejudicaria toda a 
tela se não fosse retirado. 





LEITURA EM DISCO 


A versão do programa de leitura em 
disco é a seguinte: 


10 CLEAR 500 

20 OPEN “I”*,1,"TELAL/VID” 

30 Ct=64 

40 FOR Vêt=0 TO 960 STEP 64 

50 GOSUB 1000:LINE INPUT 41,45 
55 LSET V$=X5 

60 NEXT Vê 

70 CLOSE 1:END 


O LSET da linha 55 existe apenas no 
BASIC para disco. Tem a mesma fun- 
ção do LEFTS da versão para fita mas, 
em termos operativos, é mais simples 
que esse comando. 


APLICAÇÕES 





Existem muitas aplicações para os 
programas listados neste artigo. Uma 
das mais comuns é na montagem das te- 
las de instruções de um jogo. Estas, 
quando mais elaboradas, podem incluir 
gráficos, juntamente com textos expli- 
cativos — por exemplo, a reprodução do 
desenho de cada tipo de nave inimiga e 
o número de pontos que o jogador ga- 
nha se abatê-las. Em vez de colocar to- 
dos esses dados dentro de uma mesma 
listagem, tornando-a longa e complica- 
da, use os programas de transferência 
para jogar as figuras e o texto direta- 
mente da fita ou disco para o vídeo do 
microcomputador, gastando apenas 64 
bytes de memória RAM! 

Os programas educativos constituem 
uma outra área importante de aplicação. 
As telas podem compor, por exemplo, 
as páginas de um “livro eletrônico””. Ar- 
mazenadas em disco, serão “folheadas” 
pelo aluno, que copiará aquelas que jul- 
gar necessário. 








s | RES E E " | 


Uma das tarefas mais difíceis 

na programação de jogos em código 
de máquina é garantir a sincronia 
dos diversos eventos. Aqui estão 

as rotinas que cuidam disso. 


Sempre que vamos recomeçar o jo- 
go, precisames acertar o escore e, tam- 
bém, estabelecer os parâmetros que in- 
fluenciam o comportamento de outras 
sub-rotinas. Temos que esvaziar a ma- 
ré que ameaçava Willie, definir a dire- 


34 CODIGO DE MAQUINA 34 


a 


a 
"Es 
"a 


ção do vento, colocar Willie de volta ao 
pé do monte e, para que tudo ocorra no 
momento adequado, acertar os diversos 
laços controladores de tempo. 


A rotina que se segue acerta o valor 
das diversas variáveis para que Willie 
possa se dedicar à árdua tarefa de recu- 
perar seu lanche roubado. 


lo REM org 58606 


de 


20 
30 
40 
50 


SITUAÇÃO DO PERSONAGEM 


REM 


| ld (57348),a 







O AVANÇO DA MARÉ 
“GAIVOTAS, NUVENS 

EVENTO 
“PEDRAS E COBRAS 








dth ld a,6 

ld (57353),a 
ld h1,736 

ld (57354),hl 
ld h1,130 

ld (57345) ,hl 
ld a,3 

ld (57347),a 
ld a,0 


ld a,2 

ld (57349),a 
ld h1,449 

lá (57332),h1 
ld h1,0 

ld (57334),hl 


—- = e — = E ie 





180 REM ld a,0 

190 BEM 1d (57336),a 
200 REM ld h1l,223 
210 REM ld (57356),hl 
220 REM ld a,0 

230 BEM ld b,5 

240 REM 1d (57350),a 
250 REM add a,b 

260 REM ld (5735l1),a 
270 REM add a,b 

280 REM ld (57352) ,a 


Essa rotina não é chamada apenas no 
início do jogo, mas, também, quando 
ele recomeça, depois de Willie encontrar 
a morte dentro de um buraco, afogado 
ou embaixo de alguma pedra. 





Colocando todas as variáveis juntas 
na memória do microcomputador, po- 
demos verificar o status do jogo a qual- 
quer instante, o que facilita muito a ta- 
refa de depuração de erros. 

Variáveis de um byte são modifica- 
das através do acumulador, que tem oi- 
to bits, enquanto o par de registros HL 
se encarrega das variáveis de dois bytes, 
mesmo que o seu conteúdo no momen- 
to caiba em apenas um byte. Isso ocor- 
re porque o byte mais significativo tam- 
bém deve ser modificado. 

O endereço 57353 contém o atraso do 
movimento da maré. Colocamos ali o 
número 6, dando a Willie uma chance 
razoável de escalar a montanha antes de 
se afogar. Depois, esse valor poderá ser 
modificado para acelerar o avanço da 
maré, O que tornará o jogo mais difícil 
e mais emocionante, 

O mar deve ser desenhado a partir da 
base da tela, a cada nova etapa do jo- 
go. A posição da tela correspondente ao 
canto superior esquerdo do mar é colo- 
cada nos endereços 57354 e 57355. O nú- 
mero 736, valor inicial dessa variável, 
equivale ao endereço da extremidade in- 
ferior esquerda da tela. 


= A NUVEM | 


Na versão do jogo para o Spectrum, 
há uma nuvem cruzando o céu. O en- 
dereço 57345 contém sua posição de im- 
pressão na tela. O valor inicial dessa va- 
riável é 130. 

Mas o programa utiliza outros dados 
para cuidar do movimento da nuvem. 
Se não provocarmos um atraso, ela atra- 
vessará o céu tão rapidamente quanto 
um avião a jato. Para evitar isso, colo- 
camos um contador de atraso na posi- 
ção 57347. Seu valor inicial é 3. 
Precisamos também saber em que di- 





























































e o DA 




















| 








reção sopra o vento, para que a nuvem 
se mova de acordo. A informação fica 
armazenada em 57348. Quando esse 
byte vale zero, a nuvem se movimenta 
para a direita; quando vale 1, para a es- 
querda. No programa, essa variável tem 
valor inicial zero, movendo, portanto, 
a nuvem para a direita. 


































VIDA OU MORTE 


el Um atraso para o movimento das gai- 
RR | votas é colocado em 57349, com valor 
RR | inicial 2. A posição que Willie ocupa na 
EN | tela fica em 57352. O programa coloca 
RR | ali o valor 449, correspondente ao can- 
LES o Ei to inferior esquerdo do perfil da encos- 
Aria E |ta da montanha. 

ea em Uma outra variável informa ao pro- 
RO grama se nosso herói está parado, cor- 
ag: rendo ou saltando. Por motivos que co- 
areas js EE | nheceremos mais adiante, utilizaremos 
E | dois bytes, 57334 e 57335. Como Willie 
E | começa o jogo em pé, parado no sopé 
E | da montanha, o programa coloca zero 

RR | naquelas posições. 
BRR | A situação atual do jogo pode ser 
RR | monitorada pela variável que fica em 
RR | 57336. Se esse byte for O, Wille vai bem, 
Elobrigado. Se for 1, ele acaba de recupe- 
Elrar parte do seu lanche'e as rotinas do 
E | próximo nível de dificuldade vão ser 
'|chamadas. Se for 2, Willie morreu! Co- 
mo no início do jogo nosso personagem 
EN +” 'está vivo, O programa coloca O nessa po- 
|sição. 













PEDRAS E COBRAS 





A variável que controla a posição da 
pedra fica em 57356. O programa colo- 
ca ali seu valor inicial, 223, que corres- 
ponde ao topo da montanha, no canto 
superior direito. 

As três cobras têm lingua que se me- 
xe. Como não é desejável que as línguas 
façam o mesmo movimento, precisamos 
provocar uma defasagem em seu ritmo. 
Para isso, cólocam-se variáveis de atra- 
so diferentes para cada língua, nos en- 
dereços 57350, 57351 e 57352. O acumu- 
lador recebe o valor zero, e o registro 
B, o número 5. Na primeira variável de 
atraso coloca-se, então, zero. Soma-se 
o conteúdo de B ao acumulador e o re- 
sultado, 5, é colocado no segundo atra- 
so. Mais uma vez 5 é somado ao acu- 
mulador e o resultado, 10, vai para o 
terceiro atraso, 


TA E! va PR popa de | 


+ no A SE 

















O programa em Assembly listado a 


seguir estabelece o valor inicial de uma 
série de variáveis que são usadas para 
controlar o jogo. 


10 ORG 
20 NLV 
30 STA 
ão LDX 
50 STX 
60 LDX 
70 STX 
80 CLR 
90 €CLR 
LDX 


19447 
LDA 46 
18246 
(7424 
18247 
15088 
18249 
18251 
18252 
43070 
STX 18253 
CLR 18255 
LDA 5 

STA 18256 
LDA 410 
STA 18257 
ARTS 


110 
120 
130 
140 
150 
160 
170 


Essa rotina, que recebeu o rótulo 
NLYV, é utilizada no início do jogo e, 
também, quando Willie morre. 


O MAR 


Uma das vantagens de se colocar to- 
das as variáveis em um mesmo local da 
memória é que podemos verificar facil- 
mente o status do jogo quando estamos 
depurando os erros. 

O valor de variáveis de um byte é es- 
tabelecido com a ajuda do acumulador, 
que tem oito bits, enquanto o registro 
X., de dezesseis bits, se encarrega das va- 
riáveis de dois bytes, mesmo que o seu 
conteúdo, no momento, caiba em um 
único byte. Isso ocorre porque O byte 
mais significativo também deve ser mo- 
dificado. 

O endereço 18246 contém o atraso do 
movimento da maré. O programa colo- 
ca o valor 6 nessa posição para que Wil- 
lie tenha uma chance razoável de subir 
a montanha antes de se afogar. Depois, 
poderemos mudar esse valor para ace- 
lerar o avanço da maré, tornando o jo- 
go mais difícil e emocionante. 

O mar deve ser desenhado a partir da 
base da tela, a cada nova etapa do jo- 
go. A posição da memória de vídeo cor- 
respondente ao canto superior esquer- 
do do mar é colocada nos bytes 18247 
e 18248. O programa guarda ali o valor 
inicial 7424, que corresponde ao canto 
inferior esquerdo da tela. 


| VIDA OU MORTE | 





A posição de Willie na tela fica ar- 
mazenada em 18249. O programa colo- 
ca nesse byte o valor inicial 5088, cor- 
respondente ao canto inferior esquerdo 
do perfil da encosta da montanha, de 
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onde nosso herói deve partir em busca 
do lanche perdido 

Uma outra variável, que fica em 
18251, verifica se Wille está parado, an- 
dando ou pulando. O programa coloca 
valor zero nessa posição já que no iní- 
cio do jogo o personagem está parado, 
ao pé da montanha. 

A situação atual do jogo pode ser 
monitorizada pela variável que fica em 
18252. Se esse byte for O, Willie vai bem, 
obrigado. Se for 1, ele acaba de recupe- 
rar parte do seu lanche e as rotinas do 
próximo nível de dificuldade vão ser 
chamadas. Se for 2, Willie morreu! Co- 
mo no início do jogo nosso personagem 
está vivo, O programa coloca O nessa po- 
sição. 


PEDRAS E COBRAS 





A variável que controla a posição da 
pedra fica em 18253. O programa colo- 
ca ali seu valor inicial, 3070, que corres- 
ponde ao topo da montanha, no canto 
superior direito. 

As três cobras têm língua que se me- 
xe. Como não é desejável que as línguas 
façam o mesmo movimento, precisamos 
provocar uma defasagem em seu ritmo. 
Para isso, colocam-se variáveis de atra- 
so diferentes para cada língua, nos en- 
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dereços 18255, 18256 e 18257. A primei- 
ra variável de atraso é limpa com CLR, 
tornando-se zero. Os números 5 e 10 são 
colocados, respectivamente, na segunda 
enaterceira variáveis de atraso, com o 
auxílio do acumulador. 


PRP 


A rotina listada a seguir ajusta uma 
série de variáveis com os valores que elas 
precisam conter quando Willie inicia sua 
arriscada missão. 


10 org -11645 

Z0 mrt ld a,6 

30 ld (-5213),a 
40 ld h1,736 

50 ld (-5212),hl 
60 ld h1,130 

70 ld (-5210),hl 
80 ld a,3 

90 ld (-5208),a 
100 ld a,0 

110 lá (-5207),a 
120 ld a,? 

130 ld (-5206),» 
140 ld h1,481 

150 ld (-5205),hl 
160 lá h1,0 

170 ld (-5203),hl 
180 ld a,0 

190 ld (-5201),a 
200 ld h1,255 


210 ld (-5200),hl 
220 ld a,0 

230 ld b,5 

240 ld (-5198),a 
250 add a,b 

260 ld (-5197),a 
270 add a,b 

280 ld (-5196),a 


Essa rotina, rotulada mrt, não é cha- 
mada apenas no início do jogo, mas, 
também, após a morte de Willie, quan- 
do as variáveis são reajustadas para uma 
nova partida. 


Como reunimos todas as variáveis em 
um mesmo lugar da memória, podemos 
verificar o status do jogo a qualquer mo- 
mento, quando precisamos corrigi-lo. 

As variáveis de um byte são ajusta- 
das pelo acumulador de oito bits, en- 
quanto o par HL, que tem dezesseis bits, 
se encarrega das variáveis de dois bytes, 
mesmo que o valor nelas armazenado, 
em determinado estágio, caiba em um 
só byte. Isso ocorre porque os bits mais 
significativos da variável também devem 
ser ajustados, 

A posição de memória — 5213 con- 
tém o atraso do mar. Ela é carregada 


com o valor 6, para que Willie tenha, 
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uma razoável chance de escalar a mon- 
tanha antes de se afogar. Depois, pode- 
remos modificar esse valor para acele- 
rar O avanço da maré, tornando o jogo 
mais dificil e emocionante. 

No início de cada tentativa de Wil- 
lie, o mar deve estar bem baixo, na par- 
te inferior do cenário. A posição do can- 
to esquerdo da superfície do mar é ar- 
mazenada em — 5212 e —5211. 

O número 736 é carregado nessa po- 
sição, que corresponde ao canto inferior 
esquerdo da tela. 





Poco ADA 


Na versão de Avalanche para o MSX, 
a nuvem move-se no céu acima da mon- 
tanha. Os endereços — 5210 e — 5209, 
que contêm sua posição na tela, são car- 
regados com 130, que corresponde ao 
ponto onde ela surge. 

Mas o programa utiliza outros dados 
para cuidar do movimento da nuvem, 
Se não provocarmos um atraso, ela atra- 
vessará o céu como um jato. 

Para ajustar a variável de atraso, car- 
rega-se o endereço em que estã armaze- 
nada, — 52080, com o valor 3. 

Precisamos também definir a direção 
em que a nuvem se move. Esta informa- 
ção é armazenada em — 5207. Se colo- 
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carmos O nesse endereço, ela se dirigirá 
para a direita; se colocarmos 1, para a 
esquerda. Como a rotina será inicializa- 
da tendo O nessa posição, a nuvem irá 
para a direita. 


VIDA OU MORTE 


O atraso do movimento da gaivota é 
armazenado no endereço — 5206, sendo, 
inicialmente, ajustado com o valor 2. A 
posição de Willie na tela é determinada 
pelo conteúdo dos endereços — 5205 e 
— 5204, que são carregados com 481, 
valor correspondente ao lado esquerdo 
da base da encosta. 

Uma outra variável controla a movi- 
mentação de Willie, se ele estiver de pé, 
correndo ou pulando. Por razões que 
veremos depois, ela é armazenada em 
dois bytes, — 5302 e — 5202, Como, no 
início do jogo, Willie está de pé, esses 
endereços são ajustados em 0. 

A condição geral do jogo é monito- 
rada pela variável, que fica no endere- 
ço — 5201. Vamos chamá-la de variável 
morte. Se seu valor for 0, está tudo bem 
com Willie. Se for 1, nosso personagem 
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alcançou seu prêmio e a próxima tela do 
jogo deverá ser chamada. Um valor 2 
significa que Willie está morto! Como 
o jogo começa com Willie vivo, esse byte 
é carregado com 0. 


PEDRAS E COBRAS 





A variável que controla a posição da 
pedra é armazenada nos endereços 
— 5200 e — 5199. Essa variável é ajus- 
tada com o valor 255, que corresponde 
ao lado direito do topo da encosta. 

As três cobras têm língua que se me- 
xe. Como não é desejável que as línguas 
tenham o mesmo movimento, devemos 
provocar uma defasagem em seu ritmo, 
Para isso, carrega-se o acumulador A 
com o valor O e o registro B com a de- 
fasagem 5. O valor O é armazenado na 
variável de atraso da primeira cobra 
(— $198). A defasagem 5 é adicionada 
ao valor de A (0) pela instrução add a,b 
e o resultado, 5, vai para a variável de 
atraso da segunda cobra (— 5197). Re- 
pete-se a operação e o resultado, 10, é 
armazenado na variável de atraso da ter- 
ceira cobra (— 5196). 














O mouse é um periférico cada vez 
mais procurado por usuários de 
microcomputadores pessoais ou 
profissionais. Conheça-o de perto 
e descubra suas várias utilidades. 


A busca por novas formas de intera- 
ção entre o usuário e o computador tem 
levado ao desenvolvimento de diversos 
tipos de periféricos, como o joystick, a 
caneta óptica e o tablete de digitaliza- 
ção, que têm por finalidade facilitar o 
deslocamento de um cursor, de texto ou 
gráfico, sobre a tela. 

Um dos periféricos dessa família é o 
mouse, ou camundongo, dispositivo que 
vem sendo cada vez mais usado em mi- 
crocomputadores de todos os tipos. 

O mouse recebeu essa denominação 
em virtude da semelhança física com um 
ratinho: é uma pequena caixa achatada, 
de cantos arredondados, com um a três 
botões planos em sua superfície dorsal 
é um fio (o “rabo") que sai da parte tra- 
seira, conectado ao computador. 

Para usá-lo, repousa-se uma das 
mãos sobre a caixinha, ao mesmo tem- 
po apoiando um ou mais dedos sobre os 
botões. Para efetuar algum movimento 
do cursor sobre a tela de vídeo, basta 
deslocá-lo levemente de um lado para 
outro sobre uma superfície dura e pla- 
na. Com um mínimo de prática, o usuá- 
rio aprende a coordenar o mouse com 
o que acontece na tela, conseguindo 
grande agilidade e flexibilidade em inú- 
meras funções fixadas por um software 
especial — entre elas, selecionar itens em 
um menu, desenhar sobre a tela, apon- 
tar um cursor ou uma mira etc. 

Os botões da parte de cima do mouse 
têm um papel idêntico ao do botão de 
disparo de um joystick, sendo usados, 
normalmente, para selecionar opções. 





DA ORIGEM À POPULARIZAÇÃO 


O mouse nasceu em um centro de 
pesquisas norte-americano, que estava 
desenvolvendo uma nova linguagem, 
chamada small-talk, e precisava de um 
| terminal de vídeo especial para imple- 





MOUSE MECÂNICO 
E MOUSE ÓPTICO 


mentar os novos conceitos de interati- 
vidade que seus criadores imaginaram. 
O periférico que eles criaram era uma 
espécie de trackball às avessas: em vez 
de deslocar com a palma da mão uma 
esfera presa ao teclado, o usuário des- 
locava a esfera sobre uma superfície. 
Inicialmente, o uso desse dispositivo 
foi bastante restrito, já que era dispo- 
nível apenas para minicomputadores 


muito caros. Porém, a partir do apare-. 


cimento dos microcomputadores das li- 
nhas Lisa e Macintosh (fabricados pela 
Apple Computer nos EUA), que basea- 
ram seus sistemas operacionais na inte- 
ração com o mouse, ele passou a ser fa- 
bricado também para outras linhas de 
microcomputadores. Em pouco tempo, 
tornou-se muito conhecido. 

No Brasil, o mouse está disponível pa- 
ra microcomputadores das linhas ZX 
Spectrúm (TK-90X e TK-95), Apple Il e 
MSX. No exterior podem ser encontra- 
dos modelos para micros de outras li- 
nhas. Em um artigo futuro, ensinaremos 
algumas técnicas em BASIC para o mouse. 

Embora um mouse tenha sempre a 
mesma aparência externa, com poucas 
variações de um modelo para outro, 
existem, na realidade, dois tipos funda- 
mentalmente diferentes quanto ao me- 
canismo de funcionamento: o mouse 
mecânico e o mouse óptico. 

O primeiro tem uma esfera de plásti- 
co ou metal maciço em sua “barriga” 
(ou seja, no lado voltado para a mesa). 
Quando o dispositivo é deslocado, a es- 
fera gira ao redor de seu centro, acom- 
panhando o movimento. Sensores colo- 
cados em sua superfície, dentro da cai- 
xinha, enviam ao computador os ângu- 
los de rotação verificados em duas di- 
mensões e um software especial, previa- 
mente carregado na memória do com- 
putador, transforma esses ângulos em 
coordenadas X e Y, que são usadais pa- 
ra posicionar o cursor na tela. 

O mouse óptico funciona de acordo 
com um princípio totalmente diferente: 
um diodo luminescente (LED), localiza- 
do na parte inferior da caixinha, lança 
um feixe de luz em direção à superficie 
sobre a qual será deslocado o mouse. 
Em outro orifício, um sensor luminoso 
capta as variações da luz refletida pela 
superfície. 


ES! UM PERIFÉRICO DIFERENTE 
— COMO FUNCIONA 

o UM MOUSE MECÂNICO 
E COMO FUNCIONAUM 
MOUSE ÓPTICO 


Ao contrário do mouse mecânico, 
que pode ser deslocado sobre qualquer 
superfície plana e não muito lisa, o mou- 
se óptico requer uma superfície especial. 
Esta consiste de um tablete todo mar- 
cado com um quadriculado em cor azul 
ou preta. Ao se deslocar o mouse sobre 
ela, as linhas do quadriculado provocam 
uma alteração na reflexão do feixe de 
luz vermelha emitido pelo diodo, o que 
é sentido pelo software especial como 
uma movimentação em algum sentido. 
Essa informação, por sua vez, é trans- 
mitida ao computador e convertida em 
coordenadas X e Y. 

Cada tipo de mouse apresenta van- 
tagens e desvantagens. O modelo mecá- 
nico é mais frágil, quebrando-se facil- 
mente, e menos sensível do que o ópti- 
co. Porém, pode ser usado sobre qual- 
quer tipo de superfície. Já o mouse óp- 
tico requer uma superfície especial, li- 
mitada em tamanho, e apresenta ainda 
a desvantagem de necessitar de uma fon- 
te de alimentação — dependendo do 
modelo, ela precisa ser separada da fon- 
te de alimentação do computador. 

A maioria dos periféricos de tipo 
mouse é conectada ao micro através da 
porta de joystick analógico ou de uma 
porta serial do tipo R5S-232. 

Antes de adquirir um mouse, verifi- 
que suas características para se certifi- 
car de que poderá compatibilizá-lo com 
seu computador. 


APLICAÇÕES 


O mouse é um periférico muito diver- 
tido e fácil de usar, tanto em programas 
para jogos de qualquer tipo, quanto em 
aplicações mais “sérias”. 

A princípio, toda aplicação que per- 
mite a utilização de canetas ópticas ou 
joysticks também se presta para o uso 
do mouse. Existem, porém, alguns pro- 
gramas comercialmente disponíveis, que 
são feitos exclusivamente para o mou- 
se. Incluem-se, entre eles, programas de 
desenho sobre a tela, de seleção rápida 
de menus etc. 

E não se esqueça: com alguns coman- 
dos simples em BASIC, não será difícil 
desenvolver os seus próprios programas 
para o irrequieto mouse. 
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NInnEaENO PRÓXIMO NÚMERONHEEEHHHI! 


CÓDIGO DE MÁQUINA 
Contagem de pontos em Avalanche. Exibição do placar. 
Número de vidas. Troca de telas. Níveis de dificuldade. 


PROGRAMAÇÃO BASIC 
Geração de acordes no MSX. Melodias simultâneas. A instrução 
SOUND. Tabela de conversão de notas. 


PROGRAMAÇÃO DE JOGOS 
Jogos de guerra no tabuleiro e no computador. Capa e Espada: 
organização do jogo e criação dos blocos gráficos. 





